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PREFACE 

This document is a collection of proven routines for 
the PDP-8 family of computers. These routines in themselves 
are useful to many programmers and are all illustrative of 
assembly language programming techniques. The user is advised 
to first investigate the sections on assembly language pro- 
gramming in Programming Languages and Introduction to Pro - 
gramming 19 70 . 
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Formerly 
DEC-08-LRAA-D 

CHAPTER 1 
RIM LOADER 

1 . 1 ABSTRACT 

The Re6.d.— In Mode ^RIM^ Loa.d.er is s. miniinuiTi— sized routine for 
reading and storing into core information contained in Read-In- 
Mode coded tapes via the 33-ASR perforated tape reader or high speed 
perforated tape reader. 

1.2 REQUIREMENTS 

The RIM Loader requires 17^^ C21o) core locations and is used 

..^ — _-„^ ^ family computer with a 33-ASR Teletype v-^ . a high 

speed perforated tape reader is optional. 

1 . 3 USAGE 

1.3.1 Loading 

To place the RIM Loader into memory via the console switches, 
proceed as follows: 

a. Set 7756 in the switch register (SR) . 

b. Press LOAD ADDress. 

c. Set the first instruction (6032 for 33-ASR) . 

d. Press DEPosit. 

e. Set the next instruction (60 31 for 33-ASR) . 

f. Press DEPosit. 

g. Repeat steps e. and f. until all instructions have been 
deposited. 

1.3.2 S tar t-up /Entry 

a* Place the i^erf orated tape which m.ust be in RIM form.at in the 
perforated-tape reader. 



'eletype is a trademark of the Teletype Corporation. 



PDP ; Procrramjned Data Processor- is a rei^istered trademark of 
the Digital Equipment Corporation. 
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b. Make sure the reader is set to LINE. 

c. Place the starting address (7756) in the switch register. 

d. Press the LOAD ADDress key. 

e. Press the START key. 

f . If the 33-ASR version is used, move the reader control 
to START. 

There are no error stops in this routine. 

1.4 DESCRIPTION 

This is a basic routine that alternately assembles an address 
from two successive characters on tape, then assembles data contained 
in the next two characters and stores this data at the associated 
address . 

Because a tape in RIM format is twice as long as a comparable 
tape in binary format, it is suggested that the RIM Loader only be 
used to load the Binary Loader. After this, the Binary Loader should 
be used. 

Any tapes to be read by this program must be in Read-In-Mode 
coded format. 

Leader tape for RIM format tapes should be about two feet of 
leader-trailer codes; i.e., any code with channel 8 punched, 
preferably code 200. (Depress ALT MODE, CTRL, and @ keys simultaneously 
to punch 200 leader trailer.) 

Characters representing the absolute, machine language program 
are arranged in an alternating pattern of address, contents, address, 
contents, etc. Addresses have channel 7 punched, channel 8 not 
punched. Contents have no punch in channel 7 or 8. 

Trailer tape should be the same as leader tape. 
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1.5 EXAMPLE OF READ-IN-MODE CODED FORMAT 



Tape Channel Channels 8 and 7 Indicate 

87 654 S 321 



10 000 . 000 Leader code is always tound first. 

01 Al . A2 Absolute octal Address of data in next 
00 A3 . A4 two characters. 

00 Dl . D2 Octal Data to be stored at preceding 
00 D3 . D4 address. 

This pattern repeats in similar four character groups until 

the concluding Trailer Code is 
10 000 . 000 encountered. 



Note that a 3-bit group (a single octal character) is designated 
by the notation Al above. The 1 in this notation indicates that this 
particular octal character is used as the most significant three bits 
in specifying the absolute address into which following data is 
deposited. Correspondingly, A2 , A3, and A4 designate successively 
less significant octal characters in the absolute address. 

The remarks above apply equally to data as specified by the 
notation Dl, D2 , D3, and d4. 
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1.6 PROGRAM LISTING 



1.6.1 33-ASR Version 



Abs 


Octal 










Addr. 


Contents 


Instruction 


Comments 


1156, 


6032 


BEG, 


KCC 




/clear AC and flag 


1151 . 


6031 




KSF 




/skip if flag = 1 


1160, 


5357 




JMP 


.-1 


/looking for char 


1161, 


6036 




KRB 




/read buffer 


1162, 


7106 




CLL 


RTL 


/ch8 in ACO 


1163, 


7006 




RTL 




/checking for leader 


7764, 


7510 




SPA 




/found leader 


1165, 


5357 




JMP 


BEG+1 


/0K,ch7 in link 


1166, 


7006 




RTL 






1161 , 


6031 




KSF 






1110, 


5367 




JMP 


.-1 




1111, 


6034 




KRS 




/read, do not clear 


1112, 


7420 




SNL 




/checking for address 


1112, 


3776 




DCA 


I TEMP 


/store contents 


lllA, 


3376 




DCA 


TEMP 


/store address 


1115, 


5356 




JMP 


BEG 


/next word 


1116, 





TEMP, 







/temp storage 


1111 , 


JMP start of 











BIN 


loader 









1.6.2 High-speed Version 



Abs 


Octal 








Addr. 


Contents 


Instruction 


7756 


6014 


BEG, 


RCF 




7757 


6011 




RSF 




7760 


5357 




JMP 


.-1 


7761 


6016 




RCC 




7762 


7106 




CLL 


RTL 


7763 


7006 




RTL 




7764 


7510 




SPA 




7765 


5374 




JMP 


TEMP -2 


7766 


7006 




RTL 




7767 


6011 




RSF 




7770 


5367 




JMP 


.-1 


7771 


6016 




RCC 




7772 


7420 




SNL 




7773 


3776 




DCA 


I TEMP 


7774 


3376 




DCA 


TEMP 


7775 


5357 




JMP 


BEG+1 


7776 


^ 


TEMP, 


^ 




7777 











Comments 

/clear flag and fetch char. 

/skip if flag = 1 

/wait for fetching to be done 

/put char. in AC; fetch another 

/rotate channel 8 to 

/bit j? of AC 

/was it set (leader-trailer)? 

/yes - leader . trailer 

/no - rotate channel 7 to link 

/character fetched yet? 

/no - wait for it 

/yes - add it to AC; fetch 

/another 

/is 12-bit word in AC an 

/address? 

/no - store in last stored 

/address 

/yes - store new address 

/get next word 

/temporary storage 

/start of binary loader 
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1.7 OTHER POSSIBLE RIM LOADERS 

Variations of the RIM Loader may prove useful in special cases 
where, due to circumstances, RIM must be located in a different 
section of core. 

On the other hand, the equipment involved may make it necessary 
to use a variation of RIM tailored specifically to a particular situa- 
tion. As an example of this, consider a special-purpose PDP-8 system 
used for text editinfT* In this system., no 33— ASR's are used* In- 
stead, several typewriters which use a different code (including 
provision for upper and lower case) are time-shared with respect to 
input and output with a central PDP-8. 

Please consult the Applied Programming Department at Digital 
Equipment Corporation for details of other RIM Loaders currently 
available or for assistance in special cases. 

1.8 USE OF PDP-8 SYSTEM PROGRAMS 

Certain system programs^ such as the DECtape Library System 
(DEC-08-SUCO) , require that the RIM Loader be used precisely as 
listed in section 1.6. 

1.9 USING THE RIM LOADER WITH EXTENDED MEMORY 

The RIM Loader as described in section 1.6 can run in any 
memory field provided that it is loaded into memory following a 
slightly different procedure than that described in 1.3.1. The 
Instruction Field register and the Data Field register must both be 
set to N (a number from to 7) where N indicates the memory field 
in which the RIM Loader is to be placed. This is easily done. 

a. Set the DATA FIELD extension of the switch register to N. 

b. Set the INSTRUCTION FIELD extension of the switch register 
to N. 

c. Follow procedure in steps a through g in section 1.3.1. 
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Formerly 
DEC-0 8-LBAA-D 

CHAPTER 2 
BINARY LOADER 

2 . 1 ABSTRACT 

The Binary Loader is a short routine for reading and storing informa- 
tion contained in binary-coded tapes, using the 3 3-ASR reader or the 
High-Speed Reader. 

The Binary Loader accepts tapes prepared with the PAL III, PAL-D, 
PALS, or riACRO-8 assemblers. Diagnostic messages may be included on 
tapes produced when using either PAL or MACRO. The Binary Loader ignores 
all diagnostic messages. 

2 . 2 REQUIREMENTS 

This program occupies 94, q (136o) core locations. 

The Binary Loader can be used with a system consisting of the 
PDP-8 and a 3 3-ASR Teletype only. On the other hand, the same program 
operates with systems including the High-Speed Tape Reader and/or the 
Memory Extension Control. This loader is compatible with the 552 
DECtape Library System and the TCOl DECtape Library System. 

2.3 LOADING PROCEDURES 

The Binary Loader is brought into memory by the RIM or Read-In= 
Mode Loader. This requires that the Binary Loader tape itself be in 
RIM format. See Introduction to Programming and Chapter 1 for dis- 
cussions of the RIM Loader and RIM format. 

NOTE: Memory Extension users; refer to Special Requirements 
section. 

Proceed as follows: 

a. Load the RIM Loader for the type of reader which is to load 
the Binary Loader. 

b. Place the Binary Loader tape in the reader. 

c. Make sure that the reader is on-line. 

d. Place the starting address of the RIM Loader (7756) in 
the SWITCH REGISTER. 

e. Press the LOAD ADDRESS key. 

f. Press the START key. 

g. If the 33-ASR is the chosen reader, move the READER CONTROL 
switch to the START position. 
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2.3.1 Switch Setting 

NOTE: Memory Extension users see "Special Requirements" 
section. 

2.4 USING THE PROGRAM 

a. Place the tape to be loaded (which must be in binary format) 
in either the 33-ASR Tape Reader or the High-Speed Reader, 
with leader-trailer under the read head. When using the 
33-ASR, make sure the reader is on-line. When using the 
High-Speed reader, make sure the reader is on. 

b. Place the starting address of the Binary Loader (7777) in the 
SWITCH REGISTER. 

c. Press LOAD ADDRESS key. 

When using the High-Speed Reader, change the SWITCH REGISTER 
to 3777 (bit 0=0). Omit this step if using the 33-ASR. 

d. Press console START key. 

When using the 33-ASR, move the READER CONTROL switch to 
START. 

2 . 5 ERRORS 

When any of the PDP-8 assemblers is used to produce a binary tape, 
a checksum is automatically punched at the end of the binary tape. The 
checksum is the sum of all data on the tape including the origin word. 

To be more specific, it is the sum of all data contained on tape 
that will enter the accumulator (AC) in bit positions 4 through 11 from, 
for example, the 33-ASR Reader buffer. The sum is accumulated charac- 
ter by character and not word by word. Overflow (a carry out of the 
most-significant bit position of the AC) is ignored both when calculat- 
ing a checksum (which is done by the assembler used) and when the 
Binary Loader accumulates a checksum while loading a tape. 

If the checksum accumulated while using the Binary Loader does 
not agree with the last two characters on the tape (i.e., the checksum 
on the tape calculated and placed there by the assembler) , an error 
has occurred. 

When the computer halts, the display lights will be static, the 
memory buffer (MB) will contain 7402, and the contents of the AC will 
be unequal to zero if a checksum error has occurred. 
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Restart the computer after the tape has been repositioned by 
pressing the CONTINUE key. 

2.6 DETAILS OF OPERATION AND STORAGE 

This program furnishes the basic means by which the contents of 
binary-coded tapes are loaded into core. 

The heart of the program is a short subroutine (tagged BEGG) which 
operates in outline as follows: 

The incoming character is tested to see if it is a "rubout" (all 
eight tape channels punched) . 

If this is the case, all subsequent information coming from the 
reader is ignored until another rubout is detected. 

This is the mechanism by which assembler diagnostic messages are 
detected. They are preceded and followed by a single rubout char- 
acter. Within a diagnostic message, in contrast to the rules concerning 
the balance of the binary tape, any character is valid except, of course, 
a single rubout character which would prematurely conclude the 
diagnostic message. Note that two consecutive rubouts within a diagnostic 
message would, in effect, be ignored. 

Next the character is tested to see if it is leader or field setting. 

These tests are listed in the order in which they are performed. 
If none of the actions indicated have occurred upon exit from the BEGG 
subroutine, the character is part of the origin address, contains part 
of a data word, or is a part of the checksum, and the appropriate 
course is followed by the main routine. 

2.7 SPECIAL REQUIREMENTS OR FORMATS 

2.7.1 External Format 

Tapes to be read by this program must be in binary-coded format 
and have about 1 foot of leader- trailer code (any code with channel 8 
punched; preferably code 200) . 
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The first two characters represent the address (origin) into which 
the first command on the next portion of the tape will be placed. 
Successive coramands are placed in memory at addresses: 

origin+l,origin+2 , . . . ,origin+n. 

The initial character of the origin has no punch in channel 8, 
while channel 7 is punched. The second character designating the origin 
has no punches in either channel 8 or 7 . 

A concluding 2-character group representing the checksum has no 
punches present in channels 8 or 7. 

Trailer tape is similar to leader. 

Reference to Program Listing indicates that after the BEGG sub- 
routine tests to see if the character just read was leader/trailer, 
a test is made to determine whether the character is a "field setting." 
This is a reference to the fact that the assemblers produce tapes on 
which characters of the form 

11 XXX 000 

indicate the memory field into which the following data is to be 
loaded. If, for example XXX were 101, all data following the field 
designator should be loaded into memory field five. Unlike origins and 
other data, field settings are not included in the checksum. 

2.7.2 Example of Binary Loader Format 



Tape Channel 
87 654 S 321 



10 


000 . 


. 000 


01 


000 . 


. 010 


00 


000 . 


. 000 


00 


Ill . 


. 010 


00 


000 . 


. 000 


00 


oil . 


. 010 


00 


Ill . 


. 110 



Channels 8 and 
7 I ndicate 

Leader 

Origin 

Contents of 200 

Contents of 201 



Program 
Proper 

No 

No 

Yes 

Yes 



Notes 



In octal the origin 0200. 
Loading will start at 0200 

The command 7200 or CLA. 



The command 3276 or 
DCA Z 76. 
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Example of Binary Loader Format (Cont.) 

Tape Channel Channels 8 and Program Notes 
87 654 S 321 7 Indicate Proper ^ 



00 111 . 100 Contents of 202 Yes The command 7402 or HLT. 

00 000 . 010 

_- ,«« ^1 i.„, — Mr^ Thfi nrnaram determines 

no 010 010 that these two characters 

are the checksum since 
trailer follows. 

10 000 . 000 Trailer No 

The octal checksum in this example is 0422. Note that 
this is the following sum: 

102 Origin 

000 

072 First word 

000 

32 Second word 

076 

074 Third word 

002 

422 

2.7.3 Memory Extension Usage 

It is recommended that the Binary Loader exist in field 0. This 
ensures a permanent program lining around location 7754 and 7755 which 
are used for TCOl DECtape. The loader can exist in any field, though 
caution must be taken not to use location 7754 and 7755 in field (this 
applies only to DECtape users). Also, when the proper field is chosen 
it should be noted that the RIM Loader must already be in that field. 

Binary Loader Loading Procedure for E xtended Memory Users 

a. Place the Binary Loader tape in the reader. 

b. Place the proper FIELD in the INSTRUCTION FIELD f LISTER 

" , ..^-^^ iu^ ^4-^^4--ir,rT ^^Ht-ocq of thf? RIM Loader (7756) 
wnen puT-i-j.xig L.iie o ucu. i— L-ii-tj v^^^-.^^^ — — - 

in the SWITCH REGISTER. 

c. Press the LOAD ADDRESS key. 
d- Press the START key. 

e Start the reader. 33-ASR: press READER CONTROL to start. 
High-Speed Reader: should already be ready to start. 
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Operat ion and Usage for Extended Memory Users 

a. Place the tape to be loaded (tape must be in binary 
format) m the reader. When using the 33-ASR, make 

sure reader is on-line. When using the High-Speed Reader, 
make sure reader is on and tape is positioned with 
leader/ trailer over read head. 

b. In the DATA FIELD register place the field in which the 
program is to be loaded. In the INSTRUCTION FIELD 
register place the field that the Binary Loader is in. 

c. Press LOAD ADDRESS key. 

When using the High-Speed Reader, change the SWITCH 
REGISTER TO 3777 (bit 0=0). Omit this step if using 

d. Press console START key. 

Starting Program 

After program has been successfully loaded, place starting 
address of program in SWITCH REGISTER. Place the field 
where program exists in the FIELD INSTRUCTION REGISTER. 

Press LOAD ADDRESS key. 
Press START key. 
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2.8 PROGRAM LISTING 







*7612 


7612 


0000 


SWITCH, 


7613 


0000 


r^EMTEM, 


7614 


0000 


CHAR, 


7615 


0000 


CHKSUM, 


7616 


0000 


ORIGIN, 
*7626 

/T? VrtTD 7» /-I 


7626 


0000 


/iliAiKAC 
BEGG, 


7627 


3212 




7630 


4260 




7631 


1300 




7632 


7750 




7633 


5237 




7634 


2212 




7635 


7040 




7636 


5227 




7637 


1212 




7640 


7640 




7641 


5230 




7642 


1214 




7643 


0274 




7644 


1341 




7645 


7510 




7646 


2226 




7647 


7750 




7650 


5626 




7651 


1214 




7652 


0256 




7653 


1257 




7654 


3213 




7655 


5230 




7656 


0070 


FMASK, 


7657 


6201 


CHANGE , 


7660 


0000 


READ 


7661 


0000 




7662 


6031 


LOR, 


7663 


5262 




7664 


6036 




7665 


3214 




7666 


1214 




7667 


5660 




7670 


6011 


HIR, 


7671 


5270 




7672 


6016 





/COPr aciHf 1971 DIGITAL ^JJIP^It^^f 
/-^AfMA^D^ ■^ASSACHJSSrrS 
/BINARY AND DECTAPE LOADERS FOR 
/555 CONTROL 



/EXTRACT ERRORS, FIELD, L/T 



Ui^f'jKm 1 jN 







DCA 


SWITCH 


JMS 


READ 


TAD 


M376 


SPA 


SNA CLA 


JMP 


.+4 


ISZ 


SWITCH 


CMA 




JMP 


BEGG+1 


TAD 


SWITCH 


SZA 


CLA 


JMP 


BEGG+2 


TAD 


CHAR 


AND 


MASK 


TAD 


M200 


SPA 




ISZ 


BEGG 


SPA 


SNA CLA 


JMP 


I BEGG 


TAD 


CHAR 


AND 


FMASK 


TAD 


CHANGE 


DCA 


MEMTEM 


JMP 


BEGG+2 


70 




CDF 














KSF 




JMP 


.-1 


KRB 




DCA 


CHAR 


TAD 


CHAR 


JMP 


I READ 


RSF 




JMP 


.-1 


RRB 


RFC 



/SET SWITCH 
/GET A CHARACTER 
/TEST FOR 3 77 

/NO 

/YES: COMPLEMENT SWITCH 



/NOT 377 

/IS SWITCH SET? 

/YES; IGNORE 

/NO; TEST FOR CODE 

/TYPES 



/DATA OR ORIGIN 
/DATA, ORIGIN, or L/T 
/FIELD SETTING 

/CONTINUE INPUT 
/WAIT FOR FLAG 



2-7 



7673 


5265 




7674 


0300 


MASK, 

/traile: 


I^IS 


4343 


BEND, 


1616 


7041 




7677 


1215 




7700 


7402 


M376, 


7701 


6032 


BEGIN, 


7702 


6014 




7703 


6214 




7704 


1257 




7705 


3213 




7706 


7604 




7707 


7700 




7710 


1353 




7711 


1352 




7712 


3261 




7713 


4226 




7714 


5313 




7715 


3215 


GO, 


7716 


1213 




7717 


3336 




7720 


1214 




7721 


3376 




7722 


4260 




7723 


3355 




7724 


4226 




7725 


5275 




7726 


4343 




7727 


7420 




7730 


5336 




7731 


3216 




7732 


1376 


CHEX, 


7733 


1355 




7734 


1215 




7735 


5315 




7736 


0000 


MEMFLD , 


7737 


3616 




7740 


2216 




7741 


7600 


M200, 


7742 


5332 




7743 


0000 


ASSEMB, 


7744 


1376 




7745 


7106 




7746 


7006 




7747 


7006 




7750 


1355 




7751 


5743 




7752 


5262 


LORI, 



JMP 


LOR+3 


300 




JMS 


ASSEMB 


CIA 




TAD 


CHKSUM 


HLT 




KCC 




RFC 




RDF 




TAD 


CHANGE 


DCA 


MEMTEM 


CLA 


OSR 


SMA 


CLA 


TAD 


HIRI 


TAD 


LORI 


DCA 


READ+1 


JMS 


BEGG 


JMP 


.-1 


DCA 


CHKSUM 


TAD 


MEMTEM 


DCA 


MEMFLD 


TAD 


CHAR 


DCA 


WORDl 


JMS 


READ 


DCA 


W0RD2 


JMS 


BEGG 


JMP 


BEND 


JMS 


ASSEMB 


SNL 




JMP 


MEMFLD 


DCA 


ORIGIN 


TAD 


WORDl 


TAD 


W0RD2 


TAD 


CHKSUM 


JMP 


GO 







DCA 


I ORIGIN 


ISZ 


ORIGIN 


7600 


JMP 


CHEX 







TAD 


WORDl 


CLL 


RTL 


RTL 




RTL 




TAD 


W0RD2 


JMP 


I ASSEMB 


JMP 


LOR 



/SAVE FIELD INSTRUCTION 



/IGNORE LEADER 



/LOOK AHEAD 
/TRAILER, END 
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1153 


0006 


HIRI, 




HIR-LOR 


7754 


0000 


W0RD1= 


■111^ 




7755 


0000 


W0RD2 , 
*7777 







1111 


5301 






JMP BEGIN 



ASSEMB 


7743 


BE GG 


7626 


BEGIN 


7701 


BEND 


7675 


CHANGE 


7657 


CHAR 


7614 


CHEX 


7732 


CHKSUM 


7615 


FMASK 


7656 


GO 


7715 


HIR 


7670 


HIRI 


7753 


LOR 


7662 


LORI 


7752 


MASK 


7674 


MEMFLD 


7736 


MEMTEM 


7613 


M200 


7741 


M376 


7700 


ORIGIN 


7616 


READ 


7660 


SWITCH 


7612 


WORDl 


7776 


WORD 2 


7755 
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CHAPTER 3 
RIM PUNCH 



3.1 ABSTRACT 

The RIM Punch program provides a means of punching information 
contained in selected blocks of core memory as RIM-coded tape via the 
33-ASR Perforated Tape Punch or 75E High Speed Punch. The punch pro- 
gram may occupy either low or high memory depending on the version used. 

3.2 REQUIREMENTS 

The RIM Punch program will run on any PDP-8 family computer 
with a 33-ASR (Teletype) or 75E (high-speed) punch. 

This program requires 61^^ ^"^^p^ memory locations. 

Program tapes are as follows: 

33-ASR Version High-speed Punch Version 

Low Memory Binary DEC-0 8-PMPl-PB Low Memory Binary DEC-0 8-PMP4-PB 

Low Source DEC-0 8-PMPl-PA Low Source DEC-0 8-PMP4-PA 

High Memory Binary DEC-0 8-PMP2-PB High Memory Binary DEC-0 8-PMP3-PB 

High Source DEC-0 8-PMP2-PA High Source DEC-0 8-PMP3-PA 

3.3 LOADING PROCEDURES 

This routine is loaded using the Binary Loader. See Introduction 
to Programming or Programming Languages for a complete description of 
the Binary Loader. (This routine cannot be called as a subroutine.) 

3.4 USING THE PROGRAM 

The SWITCH REGISTER is used to enter the initial and final address 
of each block of core memory to be punched. 



a. Make sure 33-ASR or 75E punch is on. 
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b. Set the starting address 0041 (or 7441 if using the high- 
memory version) into the SWITCH REGISTER and press the 
LOAD ADDRESS key. Next press the START key. 

c. The computer halts. Set the initial address of the block 
to be punched into the SWITCH REGISTER and press the 
CONTINUE key. 

d. The computer halts. Set the final address of the block 
to be punched into SWITCH REGISTER and press the CONTINUE 
key. 

Note that the final address must be larger than the initial 
address. 

e. A block of leader (code 200) tape is punched followed 
by the selected block of data in RIM format. 

f. The computer halts. Steps (c) and (d) can now be repeated 
to punch as many blocks of data as desired. To terminate 
the tape, proceed as described in (g) below. 

g. Set the terminating address 0074 (7474) into the SWITCH 
REGISTER and press the LOAD ADDRESS key. Next press the 
START key and a block of trailer tape is punched. 

3.5 DETAILS OF OPERATION AND STORAGE 

Reference to section 1.7, Flow Chart, will illustrate the follow- 
ing discussion. 

After entry, a short subroutine is entered to punch a block of 
leader. Next the initial address is picked up and the six most 
significant bits are rotated right, masked out, added to 0100 (in 
order to punch channel 7) , and punched. The least-significant six 
bits of the address are next masked out and punched. 

A similar process is followed to punch the data associated with 
the corresponding address except 010 is not added before the first 
character is punched. 

This process is repeated until the final address is reached; then 
the computer halts at the starting address. If more blocks of data 
are to be punched, this is done as explained in step (f) above. 

The routine is entered at a different address to punch the final 
trailer. 



3-2 



3.6 EXTERNAL DATA 

See Chapter 4 of Introduction to Programming for a description 
of RIM paper tape format. 

3.7 FLOW CHART 



LEADER DATA 


BLOCK ENTRY 


TRAILER 


ENTRY 




i 






1 


BEG 


HALT 






PUNCH TRAILER 




LOAD 
INITIAL ADDRESS 










HALT 








LOAD 
FINAL ADDRESS 






PUNCH LEADER 








' 








' 






PA DO 
PCON 


LOAD ADDRESS 






SHIFT RIGHT 6 




ADD CHANNEL 7 




PUNCH 




LOAD RIGHT HALF 
ADDRESS 




PUNCH 




LOAD CONTENTS 




SHIFT RIGHT 6 




PUNCH 




LOAD RIGHT HALF 
CONTENTS 




PUNCH 




Nr 


^,y^ BLOCK \s^ 
< PROCESSED J> 


:s 






i 


^ 


• _. . 






INCREMENT 
ADDRESS 
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J-IJ. <-« J. J. j.>( o 



/ClPY^IaHf IJll DIGITAL £JuI.^vi^,Mr CO^r^ jkA F I J.nj 

/DEC-08-Pr^P2-PA 

/KIM PUNCH 33-ASK HIGH MEMORY 
*7441 

744! 7402 BEG* HLT /Ei\'TRY FOR LEADER DATA BLOCK 

7442 7604 LAS /SET INITIAL ADDRESS 

7443 332S DCA lA 

7444 7402 HLT 

7445 7 604 LAS /SET FINAL ADDRESS 
7 446 3323 DCA FA 

7447 4276 JMS LTS /GO TO L/T SUBROUTINE 

7 450 1322 PADD* TAD I A /PUNCH ADDRESS 

7 451 4306 J.MS SHFT 

7452 1326 TAD CH7 

7 4 53 4314 JMS PUN 

7454 1322 TAD I A 

7455 0325 AND SL6 

7456 4314 JMS PUN 

7457 1722 PCON, TAD I I A /PUNCH CO>JTENTS 
7 460 4306 JMS SHFT 

746 1 4314 JMS PUN 

7462 1722 TAD I I A 

7463 0325 AND SL6 

7464 4314 JMS PUN 

7465 1322 TAD lA 

7466 7341 CIA 

7467 1323 TAD FA 

7470 7650 SNA CLA /TEST FOR END 

7471 5275 JMP .+4 

7472 2322 I SZ lA 

7473 5250 JMP PADD 

7474 4276 JMS LTS /ENTRY FOR L/T 

7475 5241 JMP BEG 

747 6 0000 LTS* /L/T SUBROUTINE 
7 47 7 1327 TAD M10! 

7500 3324 DCA CTR 

7501 1330 MORE* TAD C200 
7 502 4314 JMS PUN 

7503 2324 I SZ CTR 

7504 5301 JMP MORE /MORE L-T CODES 

7505 5676 JMP I LTS 

7506 0000 SHFT* /SHIFT RIGHT 

7507 7012 RTR 

7510 7012 RTR 

7511 7012 RTR 

7512 0325 AND SL6 

7513 5706 JMP I SHFT 
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7514 


0000 


PUN, 





7515 


6046 




TLS 


7516 


6041 




TSF 


7517 


5316 




JMP 


7520 


7200 




CLA 


7521 


57 14 




JMP 


7522 


0000 


I A, 





7523 


0000 


FA> 





7524 


0000 


Z1R> 





7525 


0077 


SL6, 


77 


7526 


0100 


CH7* 


100 


152.1 


leil 


•M 1 1 * 


-101 


7530 


0200 


C200* 


200 



/PUNCH SUBROUTIiME 



-1 



T HI It>j 



0041 


7402 


0042 


7604 


0043 


3122 


0044 


7402 


0045 


7604 


0046 


3123 


0047 


4076 


0050 


1122 


0051 


4106 


0052 


1126 


0053 


4114 


0054 


1122 


0055 


0125 


0056 


4114 


0057 


1522 


0060 


4106 


0061 


4114 


0062 


1522 


0063 


0125 


0064 


4114 


006 5 


1122 


0066 


7041 


0067 


1123 


0070 


7650 


0071 


5075 


0072 


2122 


0073 


5050 


0074 


4076 


0075 


5041 



/COPy^lGHf 1971 DIGITAL Z^JlP^Z^l CO-^POKAflOM 
/-lAYMAnJD, .^ASSACH JSri: f IS 
/DIGITAL-8-4-U-RIM 
/RIM PUNCH 33 LOW MEMORY 
*41 



BEG 



PADDj 



PCONj 



HLT 




LAS 




DCA 


lA 


HLT 




LAS 




DCA 


FA 


JMS 


LTS 


TAD 


lA 


JMS 


SHFT 


TAD 


CH7 


JMS 


PUN 


TAD 


lA 


AND 


SL6 


JMS 


PUN 


TAD 


I lA 


JMS 


SHFT 


JMS 


PUN 


TAD 


I lA 


AND 


SL6 


JMS 


PUN 


TAD 


lA 


CIA 




TAD 


FA 


SNA 


CLA 


JMP 


• +4 


ISZ 


lA 


JMP 


PADD 


JMS 


LTS 


JMP 


BEG 



/ENTRY FOR LEADER DATA BLOCK 
/SET INITIAL ADDRESS 



/SET FINAL ADDRESS 

/GO TO L/T SUBROUTINE 
/PUNCH ADDRESS 



/PUNCH CONTENTS 



/TEST FOR END 



/ENTRY FOR L/T 
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0076 


0000 


LTS^ 







0077 


1127 




TAD 


M101 


0100 


3124 




DCA 


CTR 


0101 


1130 


MORE* 


TAD 


C200 


0102 


4114 




JMS 


PUN 


0103 


2124 




ISZ 


CTR 


0104 


5101 




JMP 


MORE 


0105 


5476 




JMP 


I LTS 


0106 


0000 


SHFT* 







0107 


7012 




RTR 




0110 


7012 




RTR 




0111 


7012 




RTR 




0112 


0125 




AND 


SL6 


0113 


5506 




JMP 


I SHFT 


0114 


0000 


PUN* 







0115 


6046 




TLS 




0116 


6041 




TSF 




0117 


5116 




JMP 


.-1 


0120 


7200 




CLA 




0121 


5514 




JMP 


I PUN 


0122 


0000 


I A* 







0123 


0000 


FA, 







0124 


0000 


CTR* 







0125 


0077 


SL6* 


77 




0126 


0100 


CH7* 


100 




0127 


7677 


M101* 


-10] 


I 


0130 


0200 


C.200* 


200 





/L/T SUBROUTINE 



/MORE L-T CODES 
/SHIFT RIGHT 



/PUNCH SUBROUTINE 



/c OR r UGH r 19 71 1 G I r AL £ ^ J I f:a h:.nj r 

/DIGITAL-8-4-U-RIM 

/HIM PUNCH 7 5 HIGH i^lENORY 



C J.^POf^ ATI. J M 







*7441 


7441 


7402 


BEG» 


7442 


7604 




7 443 


3322 




7444 


7 402 




7445 


7604 




7446 


3323 




7447 


4276 




7450 


1322 


PADD, 


7451 


4306 




745f? 


1326 




7453 


4314 




7454 


1322 




7455 


0325 




7456 


4314 




7^57 


1722 


PCON, 


7460 


4306 




7461 


4314 




746S 


1722 




7463 


0325 




7^64 


4314 





HLT 




/ENTRY FOK LEADER DAT 


LAS 




/SET INITIAL ADDRESS 


DCA 


lA 




HLT 






LAS 




/SET FINAL ADDRESS 


DCA 


FA 




JMS 


LTS 


/GO TO L/T SUBROUTINE 


TAD 


lA 


/PUNCH ADDRESS 


JMS 


SHFT 




TAD 


CH7 




JMS 


PUN 




TAD 


lA 




AND 


SL6 




JMS 


PUN 




TAD 


I lA 


/PUNCH CONTENTS 


JMS 


SHFT 




JMS 


PUN 




TAD 


I lA 




AND 


SL6 




JMS 


PUN 





RLOCK 
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7465 
7466 
7467 
7470 
7471 
7472 
7473 
7474 
7475 
7476 
7477 
7 500 
7501 
7 502 
7503 
7504 
7505 
7506 
7507 
7510 
751 1 
7512 
7513 
7514 
7515 
7516 
7517 
7520 
7521 
7522 
7523 
7524 
7525 
7526 
7527 
7530 



1322 
7041 
1323 
7650 
5275 
2322 
5250 
427 6 
5241 
0000 
1327 
3324 
1330 
4314 
2324 
5301 
5676 
0000 
7012 
7012 
7012 
0325 
5706 
0000 
6026 
6021 
5316 
7200 
5714 
0000 
0000 
0000 
0077 
0100 
7677 
0200 



LIS 



MORE^ 



SHFT* 



PUN 



I A* 

FA* 

CTR> 

oLo* 

CH7# 

M101 

C200 



TAD 


lA 




CIA 






TAD 


FA 




SNA 


CLA 


/TEST FOR END 


JMP 


. + 4 




ISZ 


lA 




JMP 


PADD 




JMS 


LIS 


/ENTRY FOR L/T 


Ji^P 


BEG 









/L/T SUBROUTINE 


TAD 


1^101 




DCA 


CTR 




TAD 


C200 




JMS 


PUN 




ISZ 


CTR 




JMP 


MORE 


/MORE L-T CODES 


JMP 


I LTS 









/SHIFT RIGHT 


RTR 






RTR 






RTR 






AND 


SL6 




Ji^P 


I SHFT 









/PUNCH SUBROUTINE 


PLS 






PSF 






JMP 


.-1 




CLA 






JMP 


I PUN 

























77 






100 






- 10] 


I 




200 







0041 


7402 


0042 


7604 


0043 


3122 


■V t-* —1 — > 


7 402 


0045 


7604 


0046 


3123 


0047 


4076 


0050 


1 122 


0051 


4106 


0052 


1126 



/COPYilGHT 1971 OlGlfAL SJUIP-ICNf 

/>lArNA^D> /iASSACHJS.EirrS 

/DIGITAL-8-4-U-RIM 

/RIM PUNCH 7 5 LOW MEMORY 

*41 



COiif'Oii^ilO^i 



BEi 



PADD, 



HLT 




LAS 




DCA 


lA 


HLT 




LAS 




DCA 


FA 


JMS 


LTS 


TAD 


lA 


JMS 


SHFT 


TAD 


CH7 



/ENTRY FOR LEADER DATA BLOCK 
/SET INITIAL ADDRESS 



/SET FINAL ADDRESS 

/GO TO L/T SUBROUTINE 
/PUNCH ADDRESS 
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0053 

00 54 
0055 
0056 
0057 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0070 
0071 
0072 
0073 
0074 
0075 
0076 
0077 
0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 

01 10 
01 1 1 
01 12 
01 13 
01 14 
01 15 
01 16 
01 17 
0120 
0121 
0122 
0123 
0124 
0125 
0126 
0127 
0130 



41 14 
1 122 
0125 
41 14 
1522 
4106 
41 14 
1522 
0125 
4114 
1 122 
7041 
1 123 
7650 
5075 
2122 
5050 
4076 
5041 
0000 
I 127 
3124 
1 130 
41 14 
2124 
5101 
5476 
0000 
7012 
7012 
7012 
0125 
5506 
0000 
6026 
6021 
5116 
7200 
5514 
0000 
0000 
0000 
0077 
0100 
7677 
0200 



PCON, 



LIS 



MORE, 



SHFT* 



PUN 



FA, 

CTR, 

SL6, 

CH7, 

M 1 1 , 

C200, 



JMS 

TAD 

AND 

JMS 

TAD 

Ji^S 

JMS 

TAD 

AND 

JMS 

TAD 

CIA 

TAD 

SNA 

JHP 

TSZ 

JMP 

JMS 

JMP 



TAD 

DCA 

TAD 

JMS 

ISZ 

JMP 

JMP 



RTR 

RTR 

RTR 

AND 

JMP 



PLS 

PSF 

JMP 

CLA 

JMP 







77 

100 

-101 

200 



PUN 

lA 

SL6 

PUN 

I lA 

SHFT 

PUN 

I lA 

SL6 

PUN 

lA 

FA 

CLA 

. + 4 

lA 

PADD 

LTS 

BEG 

M101 

CTR 

0200 

PUN 

CTR 

MORE 

I LTS 



SL6 

I SHFT 



.-1 

I PUN 



/PUNCH CONTENTS 



/TEST FOR END 

/ENTRY FOR L/T 
/L/T SUBROUTINE 



/MORE L/T CODES 
/SHIFT RIGHT 



/PUNCH SUBROUTINE 
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Formerly 
DEC-0 8-YXYA-D 



CHAPTER 4 
BINARY PUNCH 

(Binary Core Dump to High-speed or 
Teletype Punch) 



4.1 ABSTRA.CT 

This program provides a means of punching information con- 
tained in selected blocks of core memory as binary-coded paper tape 
using the high-speed or Teletype punch. 

4.2 REQUIREMENTS 

This program occupies "75,^ (113g) core memory locations. 

The Binary Punch program runs on the basic PDP-8, 8/S , 8/1, 8/L, 
or 8/E with standard 33-ASR Teletype or standard high-speed punch. 

Program tapes are as follows : 

33-ASR Binary DEC-0 8-YXlA-PB 

33-ASR Source DEC-0 8-YXlA-PA 

High-speed Binary DEC-0 8-YX2A-PB 

High-speed Source DEC-0 8-YX2A-PA 

4.3 LOADING PROCEDURES 

This program is loaded by means of the Binary Loader. See 
Introduction to Programming o r Programming Languages for a complete 
discussson of the Binary Loader and its use. (This program 
cannot be called as a subroutine.) 

The SWITCH REGISTER is used to enter initial and final addresses 
of blocks to be punched as well as the number of blocks to be punched, 

This program is used in the following manner: 
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a. Assuming the program is in memory as listed in 4.7, place 
the starting address 7465 in the SWITCH REGISTER and press 
the LOAD ADDRESS key. 

b. Press the START key. Leader tape is punched and the computer 
halts. Set the number of blocks to be punched into the 
SWITCH REGISTER and press the CONTINUE key. 

c. The computer halts. Set the initial address of the block 

to be punched into the SWITCH REGISTER and press the CONTINUE 
key. 

d. The computer halts. Set the final address of the block to 
be punched into the SWITCH REGISTER and press the CONTINUE 
key . 

e. Note that the final address must be greater than the initial 
address. 

f. The indicated block of data is punched. If only one block 
has been called for, the trailer tape is punched and the 
computer halts. If more than one block has been called for, 
the computer halts at step (a) waiting for a new initial 
address. The second block is punched following completion 
of steps (c) and (d) , etc. 

4 . 4 METHOD 

This is a basic program used to produce tapes acceptable by the 
Binary Loader. 

With each punched block of data, an initial address (into which 
that data is to be loaded) is punched as the first two characters. 
Following the initial address, each 2-character group represents the 
binary contents of a computer word. At the end of each block, a 2- 
character checksum is punched. 

Reference to Section 4.6, Flow Chart, will illustrate the com- 
putational approach. Basically data is picked up from memory, the 
most significant half shifted right and punched, and the least 
significant half masked out and punched. 



A similar process is followed with respect to the initial address 
and the checksum^ which is accumulated character by character as a 
block is punched. 
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See Chapter 4 of Introduction to Programming for a complete 
discussion of tape format. 

4.6 FLOW CHART 






, ^ , , -I- -; 1 .,• r, -. . 



tion, not connectives. 



PLOT I PUNCH LEADER 



ENTER NUMBER 
OF BLOCKS 



ENTER BLOCK 
lA AND FA 




PUNCH 2 
BINP ) CHARACTERS 

INCREMENT CUSM 
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4. / FKUCiKAJyi IjibTliSHo 

A listing of this program with BPUN located at 7465 is as 
follows: 

/COPfUGHr 19/1 DIGir-^L E:5JIP^£iviT CO-JPOnriQiNl 

A^lAf,NJA:<i), r-IASiACH JS-iriS 

/BIN PUNCH HIGH SPEED PUNCH (PC03> PP8I> PP8L) 
*7465 

7465 7300 BPUN^ CLA CLL 

7466 6026 PLS /INITIAL PUNCH 

7467 3366 DCA CKSM /CLEAR CHECK-SUM 

7470 4330 JMS PLOT /GO PUNCH LEADER CODES 

747 1 7402 HLT /SET SWITCHES=NUMBER OF 

BLOCKS 

7472 7604 LAS 

7473 7041 CIA 

7474 3367 DCA NB /STORE MINUS NUMBER OF 

BLOCKS 

7475 7402 NXBL> HLT /SET SWITCHES = IN IT lAL ADDRESS 

OF BLOCK 



/SET SWITCHES=FINAL ADDRESS 
OF BLOCK 



7476 


7604 


7477 


3370 


7500 


7402 


7501 


7604 


7502 


7001 


7503 


3371 


7504 


1370 


7505 


7120 


7506 


4341 


7507 


1370 


7510 


7041 


751 1 


1371 


7512 


7650 


7513 


5320 


7514 


1770 


7515 


7100 


7516 


2370 


7517 


5306 


7520 


2367 


7521 


5275 


7522 


1366 


7523 


7100 


7524 


4341 


752 5 


4330 


7526 


7402 


7527 


5265 


7530 


0000 


7531 


7300 


7532 


13 72 



PLOT:* 



LAS 




DCA 


lA 


HLT 




LAS 




lAC 




DCA 


FA 


TAD 


lA 


STL 




JMS 


BINP 


TAD 


lA 


CIA 




TAD 


FA 


SNA 


CLA 


JMP 


.+5 


TAD 


IIA 


CLL 




ISZ 


lA 


JMP 


PUNL 


ISZ 


NB 


JMP 


NXBL 


TAD 


CKSM 


CLL 




JMS 


BINP 


JMS 


PLOT 


HLT 




JMP 


BPUN 







CLA 


CLL 


TAD 


M212 



/TO PUNCH lA AS ORIGIN 
PUNL^ JMS BINP /GO PUNCH WORD AS TWO LINES 

OF TAPE 



/AC=FA-IA 

/WAS IT LAST WORD OF BLOCK? 

/IT WAS THE LAST WORD 

/GET WORD TO PUNCH 

/NOT AN ORIGIN 

/JUST INDEX lA 



/IS THERE ANOTHER BLOCK? 
/HANDLE NEXT BLOCK 



/GO PUNCH CHECK SUM 
/GO PUNCH TRAILER CODES 



/DONE 



/TO PUNCH 212 OCTAL LEADER 
TRAILER CODES 
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7533 


3373 




DCA 


CTRl 




7534 


1374 




TAD 


C200 


/LEADER TRAILER CODE 


7535 


4361 




J MS 


PUN 


/PUNCH C (AC) 


7536 


2373 




ISZ 


CTRl 


/ANOTHER L-T CODE OR NO 


7531 


5335 




JMP 


.-2 


/GO PUNCH ANOTHER 


1 J-^ICI 








T PI nT 


/ EXIT 


7541 


0000 


B I NP > 









7542 


3375 




DCA 


TEMl 




7543 


1375 




TAD 


TEMl 




7544 


7012 




RTR 






7545 


7012 




RTR 






7546 


7012 




RTR 






7547 


0376 




AND 


SL 7 


/FIRST TWO OCTAL DIGITS 
AC 5-11 


7550 


4361 




J MS 


PUN 


/PUNCH C (AC) 


7551 


1366 




TAD 


CKSM 




7552 


3366 




DCA 


CKSM 




7553 


1375 




TAD 


TEMl 




7554 


0377 




AND 


SL6 


/LAST TWO OCTAL DIGITS I 
AC 6-11 


7555 


4361 




JMS 


PUN 


/PUNCH C (AC) 


7556 


1366 




TAD 


CKSM 




7557 


3366 




DCA 


CKSM 




7560 


5741 




JMP 


I BINP 


/EXIT 


7561 


0000 


PUM^ 







/ROUTINE TO PUNCH C (AC) 


7562 


6021 




PSF 




/AND EXIT WITH C (AC) 


7563 


53 62 




JMP 


.-1 


/UNALTERED 


7564 


6026 




PLS 




/PUNCH IT 


7565 


5761 




JMP 


I PUN 


/EXIT 


7566 


0000 


CKSM, 









7567 


0000 


NB, 









7570 


0000 


lf\> 









757 1 


0000 


FA, 









7572 


7566 


M212> 


-212 




7573 


0000 


CTRl > 









7574 


0200 


C200> 


200 






7575 


0000 


TEMl, 









7576 


0177 


SL7, 


177 






7577 


0077 


SL6, 


77 







IN 



4.8 33-ASR TELETYPE PUNCH PROGRAM 

To use this program with the 33-ASR Teletype, make the following 
changes : 



7466 


6046 


7562 


6041 


7564 


60 46 



TSF 

TLS 



/AND EXIT 
/PUNCH IT 



WITH C (AC ) 
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Formerly 
DEC-0 8-YPPA-D 



CHAPTER 5 
OCTAL MEMORY DUMP 

(Octal Core Dump to Paper Tape) 



This program enables the user to dump, in octal, any or all 
data in any memory field to either the Teletype or high-speed paper 
tape punch. During dumping the absolute address of each location 
being dumped is held in the accumulator. When dumping is completed 
output devices and memory fields can be changed to dump another 
section of memory. 

5.2 REQUIREMENTS 

This program requires one core page; initially 7400-7577. 

The Octal Memory Dump program runs on any PDP-8 family computer 
with at least 4K words of core, a 33-ASR Teletype and/or high-speed 
paper tape punch. 

No additional software is required. The program leaves the 
BIN and RIM Loaders untouched. The program tapes are as follows: 

Binary DEC-0 8-YPPA-PB 
Source DEC-0 8-YPPA-PA 

5.3 USAGE 

The program is supplied in ASCII format on punched paper tape, 
and can be assembled by any 4K PDP-8 assembler (i.e., PAL III, 
MACRO- 8, or PAL-D) . The origin of this program (7400) can be changed 

Vv J. uii i^iiC e lJj: O •-' jf iiiJ-'w j. j-\^ j-it^^i. v^v^ j. j-xx v^x. <wxC: j. <^\^ \^ vaxhj^ j.>j>^»^»,j.%^*i~ . -->- ._?. . - 

(See the appropriate assembler section of Programming Languages for 
assembly instructions.) 

5.3.1 Loading 

The program is loaded into core with the Binary Loader (see 
Introduction to Programming or Programming Languages for loading 
procedures) and can be loaded into any available memory field. 
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5.3.2 Operating Procedures 

The SWITCH REGISTER on the PDP-8 console is used to control the 
program; all options are determined by the position of bit 0. The 
program can be interrupted by depressing the STOP switch. 

With Octal Memory Dump program in core: 

a. Set the SWITCH REGISTER to the starting address (7400) and 
the INSTRUCTION FIELD to the field containing the Octal 
Dump. Set DATA FIELD to the field containing the code to 
be dumped. Press the LOAD ADDRESS key. 

b. Set SWITCH REGISTER bit to 1 for a core dump to the 
Teletype punch, or to when dumping via the high-speed 
paper tape punch. 

c. Press the START switch. The computer halts. 

d. Set the SWITCH REGISTER to the starting address of the 
section of core to be dumped. 

e. Press the CONTINUE switch. The computer halts. 

f. Set the SWITCH REGISTER to the final core address of the 
section of core to be dumped. 

g. Press the CONTINUE switch; dumping commences and stops 
after dumping the contents of the final core address 
specified in step (f) above. 

Another dump can be performed at this time by continuing at 
step (a) when the output device or data field is to change. Other- 
wise, continue at step (d) . 

The program halts after each dump. 

The preceding operations are illustrated in Figure 5-1. 

5 . 4 INPUT/OUTPUT 

The program contains its own Teletype and high-speed punch 
output, and there are no external I/O handlers used. SWITCH REGISTER 
bit determines the output device. 

5.5 FUNCTIONAL DESCRIPTION 

The program is written in the PAL III language. Four routines 
are used in the program: 
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rrx 



\zy 



liigh-Speed 



I Set SR Bit jZf = jg I 



c 



Load BIN Loader 
and Press STOP 



) 



Set Start | 
iMdress In SrI " 




- ^ Press START ^ 



I 



I Ccnputer Halts 



Set Start Address 
of Dunp In SR 



I Press COsiT 

HHEZH 



Coiputer Halts 



Set Ending Address 
of Dump In SR 



I 



Press CDOT 

I 



Specified Memory Is 
Being Dunrped 




Starting Address and 
Data Field of 
Octal f4aTDry Dunp 



Teletype 



Set SR Bit jZf = 1 



-» ( Finish^ 



Figure 5-1 Operating Procedures 
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a. The TOCT routine causes a number to be formatted for a 
typeout or punchout. 

b. The TCR routine outputs a carriage return-line feed. 

c. The TSP routine outputs a space. 

d. The TCHAR routine is the output routine for both the 
Teletype and the high-speed punch. 

The main routine begins with the initialization of variables, and 
the two address arguments are picked up from the switch register. Two 
carriage return- line feeds are performed, followed by the, starting 
address and several spaces. A loop is then entered to type the contents 

of eight memory locations (if eight remain) . If more data remains 
to be output, a JMP to LPjZ(2 repeats the process. If during this loop 
the routine finds that it has processed the last memory location, the 
loop exits, a carriage return line feed is performed, a JMP to LPi?j2f is 
executed, and the program halts. 

See the program listing that follows for more precise information. 
5.6 PROGRAM LISTING 



ONTIWUE 



TIWUE 



7400 


7604 


7401 


7700 


740 2 


1265 


7403 


1270 


7404 


3325 


MCH 


LI T PUT 


740 5 


7402 



/ OCTAL MEf^ORY DUMP PROGRAM 

/ COPYRIGHT 1969 

/ DIGITAL EQUIPME'^T CORP. 

/ MAYXfARD^ MASS. 

/TO OPERATE: 

/ LOAD ADDRESS 7400 ISi SR 

/ TO CKOSE OUTPUT DEVICE: 

/ SET BIT 0=0 EOR H. S. PUlMCH OUTPUT OR 

/ SET BIT 0=1 EOR TTY OUTPUT TtlE'M PRESS START 

/ SET STARTIiMG ADDRESS AMD DATA EI ELD I Nf SR -PRESS C 



/ 



DUMP^ 



SET E^XIDIINJG ADDRESS AMD DATA FIELD I'M SR -PRESS COM 



,P00. 



*7400 

CLA OSR 

SMA CLA 

TAD 010 

TAD C7400 

DCA SK PZ 

HL T 



/EXAMIME SR EOR OUTPUT DEVICE 

/STORE A "SKP" IM SKPZ IF H. S. PU 

/STOP. EMTER DUMP START IMG ADDRESS 
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740 6 


7 60 4 


7407 


3261 


7410 


7 40 2 


741 1 


7 60 4 


7412 


7040 


7413 


1261 


7414 


3262 


PED 




7415 


4312 


7416 


4312 


7417 


126 1 


7420 


4272 


7421 


4320 


7422 


4 320 


7423 


4 320 


7424 


1661 


7425 


4272 


7426 


2262 


7427 


7410 


7430 


5247 


7431 


2261 


7432 


1261 


743 3 


0263 


7434 


7640 


7435 


5 22 3 


7436 


1261 


7437 


0264 


7440 


7 640 


7441 


5222 


7442 


126 1 


744 3 


0266 


7444 


7640 


7445 


5216 


7446 


5215 


7447 


4312 


7450 


1267 


7451 


4324 


7452 


127 1 


745 3 


3262 


7454 


4324 


7455 


2262 


7456 


5254 


7457 


1261 


746 


5205 



LP01^ 



LF02:» 



OUT. 



LAS 




DC A 


A DDR 


HLT 




LAS 




CMA 




TAD 


A DDR 


DCA 


I.MDEX 


JMS 


TCP 


JMS 


TCR 


TAD 


A DDR 


JMS 


TOCT 


JMS 


TSP 


JMS 


TSF 


JMS 


TSP 


TAD 


I A DDR 


JMS 


TOCT 


ISZ 


IiNJDE.K 


SKP 




JMP 


OUT 


I SZ 


A DDR 


TAD 


A DDR 


A^\ID 


C3 


SZA 


CLA 


JMP 


LP02 


TAD 


A DDR 


A\ID 


C7 - 


SZA 


CLA 


JMP 


LP02-1 


TAD 


A DDR 


AXfD 


C177 


SZA 


CLA 


JMP 


LP01 


JMP 


LP01-1 


JMS 


TCR 


TAD 


C214 


JMS 


TCHAR 


TAD 


M20 


DCA 


IiMDEX 


JMS 


TCHAR 


ISZ 


IiVDEK 


JMP 


.-2 


TAD 


A DDR 


JMP 


LP00 



/STOP. E!\1TER DUMP E^DIMG ADDRESS 



/ u- u u L\/ 1 Ji n r u rs .\) u iv u r j_. u u o i u t? c JJ L 



/TYPE CR-LES 



/OUTPUT STARTING ADDRESS IM OCTAL 
/OUTPUT 3 SPACES 



/GET CONiTEMTS OE LOC 
/TYPE OUT CC^TEMTS 
/DOME DUMPINJG? 

/YES. EXIT 

/MO. KICK ADDRESS UP 

/HAVE WE OUTPUT 8 LOGS OM A LT.^E? 



/MO. SPACE OVER OiVE A.\ID GET MEXT 



/OUTPUT CR/LF THEj.nJ ^E\n ADDRESS 

/OUTPUT CR/LF 

/OUTPUT A FORM FEED 

/THEM OUTPUT 20 BLAiMKS OE TRAILER 



/LEAVE WITH FIlnJAL ADDRESS IM AC 
/GO TO HALT FOR POSSIBLE RESTART 



/ VARIABLES Ai^JD COiMSTA^MTS 



746 1 0000 ADDR^ 

PED 

7462 0000 Ii\)DEX. 

DUMPED 



/LCC OF STARTIMG ADDRESS TO BE DUM 
/COUJMTER FOR DUMBER OF LOGS TO BE 
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7463 


000 3 


C3^ 


3 


7464 


0007 


C7. 


7 


7465 


0010 


C10^ 


10 


7466 


0177 


C177^ 


1 77 


7467 


0214 


C214> 


214 


7470 


7400 


07400^ 


7400 


747 1 


7760 


M20^ 


-20 


UT 









/MASK VALUES 



/FORM FEED 

/USED TO FORM SKP COMMA^XfB 

/COU-MTER FOR .\fUM OF BLANKS TO OUTP 



/ OCTAL TYPEOUT ROUTIME 



7472 



i000 TOCT. 



7473 7104 



7474 
7475 
7476 
7477 
7500 
7501 
7502 
7503 
7504 
7505 
7506 
7507 
7510 
751 1 



3344 
1352 
3345 
1344 
7006 
7004 
3344 
1344 
0264 
1351 
4324 
2345 
5277 
5672 



LP0 



CLL RAL /ROTATE ADDRESS 1 LEFT 



DCA 
TAD 
DCA 
TAD 
RTL 
RAL 
DCA 
TAD 
AMD 
TAD 
JMS 
ISZ 
JMP 



WORD 
M4 
MDX 
WORD 



WORD 

WORD 

C7 

C260 

TCHAR 

:\IDX 

LP03 



/SET DUMBER OF DIGITS PER WORD 
/ROTATE WORD 3 LEFT 



JMP I TOCT 



/MASK BITS 9- 1 1 

/ADD 260 FOR OUTPUT 

/OUTPUT DIGIT 

/DOXIE FOUR? 

/IMO. PICK UP A'MOTHER DIGIT 

/YES. RETURM 



/ ROUTIME TO OUTPUT A CARRIAGE RETUR-M/L I :^E FEED 



75] 2 


0000 


TCR^ 




7513 


1347 


TAD 


0215 


7514 


4324 


JMS 


TCHAR 


7515 


1 346 


TAD 


C212 


7516 


4324 


JMS 


TCHAR 


7517 


5712 


JMP 


I TOR 






/ ROUTINE TO OUTPUT 


7520 


0000 


TSP^ 




7521 


1350 


TAD 


0240 


7522 


4324 


JMS 


TCHAR 


7523 


5720 


JMP 


I TSP 



/OUTPUT A C. R. 



/OUTPUT A L. F 



A SPACE 



/OUTPUT A SPACE 
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/ ROUTI-^E TO OUlPul A ChAHACTFR 0"^^ TTY OR H. S. PO.\]CH 

/CHA'XIGED TO A "SKP" IF H. S. OUTPU 
/OTHERWISE GO TO TTY OUTPUT 

/KEEP ADDRESS I;.\J AC WHILE PUNCHIIMG 



75 24 


0000 


TCHAR^ 







7525 


7000 


SKPZ^ 


MOP 




1 

7526 


5335 




JMP 


TCHl 


7527 


6026 




PLS 




7530 


7200 




OLA 




7531 


126 1 




TAD 


ADDR 


7532 


6021 




PSF 




7533 


5332 




JMP 


.-1 


7534 


5342 




JMP 


TCH2 


7535 


6046 


TCHl^ 


TLS 




7536 


7 200 




CLA 




7537 


1261 




TAD 


ADDR 


7540 


6041 




TSF 




7541 


5340 




JMP 


.-1 


7542 


7200 


TCH2^ 


CLA 




7543 


5724 




JMP 


I TCHAR 



/TTY OUTPUT ROUTIME 



/ VARIABLES AinJD C0l\) STAiM TS 
7544 0000 WORD. /STORAGE FOR DIGIT TO BE FORMATTED 

/COU'^ITER FOR MUM OF DIGITS OUTPUT 

/code for lime feed 

/ " " carriage returm 

/ " " space; 

/ " " formatting digits 

/number of digits per word 



7545 


0000 


NDX. 





7546 


0212 


C212. 


212 


7547 


0215 


C215. 


215 


7550 


0240 


C240. 


240 


7551 


260 


C260. 


260 


75 5 2 


77 74 


M4. 


-4 
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CHAPTER 6 
TELETYPE I/O SUBROUTINES 

6 . 1 ABSTRACT 

The routines described in this chapter are illustrative of the 
procedures to be followed in creating I/O routines to be used with 
the ASR-33 Teletype. The user is advised to peruse these routines 
prior to writing I/O routines tailored for his particular needs. 
Subroutines are provided which perform input and output of character 
strings and single alphanumeric characters. These routines are 
illustrative and by no means exhaustive of routines to handle the 
ASR-33 Teletype. 

6.2 REQUIREMENTS 

The routines as supplied require 124^ (174^) core locations. 

The Teletype I/O Subroutines run on any PDP-8 family computer 
with an ASR-33 Teletype console. The program is distributed as an 
ASCII tape as follows: 

DEC-0 8-FIKA-PA 

6 . 3 USAGE 

6.3.1 Assembly 

The routines as supplied will be automatically assembled onto 
the first available core page. There is no $ character at the end 
of the tape; although a PAUSE statement is present to allow for the 
later loading of additional programs, if any. 

This collection of subroutines can be assembled with PAL III, 
PAL-D, PALS, or MACRO-8. (If using the tape with TSS/8, remove the 
PAUSE statement from the end of the tape.) 

If the routines are to be assembled separately (without a user 
program), they will assemble at location 200. In this case, the 
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user should append a separate tape with a $ character to the end 
of the Teletype I/O Subroutines tape before assembly. 

If the routines are to be assembled with a user program (such 
as the example program in section 6.6), the Teletype I/O Subroutines 
tape should be loaded after the user program and the whole 
followed by a tape with a $ character. In this case, the I/O sub- 
routines will fit on the first available free core page and will 
not overlay the user program. (Tapes can be loaded after the I/O 
routines if allowance is made for the length of the routines or by 
assigning a specific address to the beginning of the I/O routines.) 

6.3.2 Calling Sequence 

The calling sequence for the Subroutines is designed so that 
the user can easily incorporate messages into his program. The 
user inserts a series of JMS instructions to the I/O routines 
followed by the address of the message to be transmitted. 

The subroutines the user is likely to call are as follows: 



Subroutine 



Purpose 



Calling Sequence 



TYPX 



TLSX 



KREAD 



Prints a message. Message is ENTRY, 
coded by programmer if using 
PAL III, or set in a labeled 
TEXT pseudo-op statement if 
using PAL-D, PALS, or MACRO- 8. 

Prints a single character, used 
by TYPX to print message, charac- 
ter by character. Subroutine is 
entered with character to be 
printed in AC bits 6 to 11. 

Inputs a message. KREAD accepts ENTRY, 
8-bit ASCII and does not convert 
to 6-bit ASCII, therefore TYPX 
cannot directly cause a message 
read by KREAD to be printed, 
although a simple routine to do 
so can be written by the user. 
Remember, the size of the input 
buffer must include the carriage 
return character. 



JMS TYPX 

POINTER /ADDR OF 
/MESSAGE 
/EXIT IS TO 
/ENTRY+2 WITH 
/AC CLEAR 

JMS TLSX 
/CHAR IN AC 
/BITS 6 TO 11 



JMS KREAD 
POINTER /ADDR OF 

/INPUT BUFFER 
-LENGTH /-SIZE OF 

/INPUT BUFFER 
/EXIT IS TO ENTRY+3 
/WITH AC CLEAR 
/ZERO PLACED AT 
/BUFFER END 
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Subroutine 



KRBX 



Purpose 

Inputs single character from 
Teletype, exits with charac- 
ter read in the AC. 



Callincr Se'^uence 



ENTRY, JMS KRBX 

/EXIT IS TO 
/ENTRY+1 WITH 
/CHAR READ IN AC 



'^t-iicj. J- v-(i-i ojLiico pjLuvj.cicu. j.iiuj.uu.fc; j\x%.uiD , wiixuii ufcjxeteb tue ±asT: 
character in the input buffer when the RUBOUT key is typed. This 
routine is not necessary to Teletype I/O but allows for erasing 
of typing mistakes and also performs echoing. If the user rubs 
out characters past the beginning of the input buffer, a 
carriage return/line feed is performed as a warning. 

6.4 RESTRICTIONS 

The user program must initialize the teleprinter flag before 
calling these subroutines. Initialization is performed as follows 



CLA /SET AC TO ZERO, GOOD PRACTICE 
TLS /INITIALIZE TELETYPE 



The routines can only be called from the memory field in which 
they reside. 

The following characters have special meaning to the output 
subroutines : 



6-bit value 



00 



37 



Character Purpose 

(3 Marks the end of a message; supplied via 
the TEXT pseudo-op when using PAL-D, 
PALS, or MACRO-8. Must be supplied by 
user if using PAL III. 

^ Causes a carriage return-line feed to be 
output to the Teletype. 



The following characters have special meaning to the input 
subroutine: 
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8-bit value Character Purpose 

212 LINE FEED Ignored on input. 

000 null Ignored on input. 

377 RUBOUT Deletes the previous character typed, 

echoes a backslash after the first 
RUBOUT typed and a closing back- 
slash after the first non-RUBOUT 
character typed. 

215 RUBOUT Echoes a carriage return/line feed 

and exits from the input subroutine 
to the user program (calling 
program) . 

On input buffer overflow while reading characters into the 
Teletype buffer, characters echo as "bell" (the bell within the 
Teletype rings) . All characters other than RETURN and RUBOUT 
are lost if typed while "bell" is being rung as a warning. 

6.5 DESCRIPTION 

Table 6.1 shows the ASCII values of the characters which can 
be used with the supplied Teletype I/O Subroutines. When using 
PAL III, the user must code these ASCII values at the location 
referenced by the output routine. The PAL III assembler reads 
the ASCII codes directly as octal numbers. 

PAL-D, PALS, and MACRO- 8 can use the TEXT pseudo-op to 
directly format alphanumeric characters into ASCII code. The TEXT 
pseudo-op puts the desired message into 6-bit ASCII format; the 
routines convert the 6-bit ASCII to the printable 8-bit ASCII and 
then output the message. 

If the user were outputting the message HELLO, it would be 
done as follows, where MESG is the location given for the message: 

PAL III PAL-D, MACRO- 8, or PALS 



MESG, 10j2f5 /HE MESG, TEXT/HELLO/ 

1414 /LL 
17j?j? /O END OF 

/MESSAGE CODE 
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TABLE 6 . 1 

6-BIT ASCII CHARACTER SET FOR INPUT WHEN USING THE 

PAL III ASSEMBLER, 8-BIT ASCII FORMAT IS ALSO SHOWN FOR 

COMPLETENESS. 





6-BIT 


8-BIT 




6-BIT 


8-BIT 


Character 


Value 


Value 


Character 


Value 


Value 


i-i 


n -1 
UX 


oux 


• 


A 1 
IX 


241 


B 


02 


302 


II 


42 


242 


C 


03 


303 


# 


43 


243 


D 


04 


304 


$ 


44 


244 


E 


05 


305 


% 


45 


245 


F 


06 


306 


& 


46 


246 


G 


07 


307 


1 


47 


247 


H 


10 


310 


( 


50 


250 


I 


11 


311 


) 


51 


251 


J 


12 


312 


* 


52 


252 


K 


13 


313 


+ 


53 


253 


L 


14 


314 


f 


54, 


254 


M 


15 


315 




55 


255 


N 


16 


316 


, 


56 


256 





17 


317 


/ 


57 


257 


P 


20 


320 


• 


72 


272 


Q 


21 


321 


7 


73 


273 


R 


22 


322 


<' 


74 


274 


S 


23 


323 


\ 


75 


275 


T 


24 


324 


> 


76 


276 


U 


25 


325 


'? 


77 


277 


V 


25 


326 


h 


00 


300 


w 


27 


327 


[ 


33 


333 


X 


30 


330 




34 


334 


Y 


31 


331 


] 


35 


335 


Z 


32 


332 


i 


36 


336 





60 


260 


■<- 


37 


337 


1 


61 


261 


leader tape 




200 


2 


62 


262 


LINE FEED 




212 


3 


63 


263 


RETURN 




215 


4 


64 


264 


SPACE 


40 


240 


5 


65 


265 


RUBOUT 




377 


6 


66 


266 


blank 




000 


7 


67 


267 


BELL 




207 


8 


70 


270 


TAB 




211 


9 


71 


271 


FORM 




214 
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The same results are achieved in both cases. The TEXT pseudo- 
op performs all of the necessary operations in the case of PAL-D, 
PALS, and MACRO- 8 which the programmer must perform if using 
PAL III. 

The input routines echo characters typed at the keyboard, 
accept 8-bit ASCII characters (as they come from the Teletype 
keyboard) for internal storage, and allow character editing via 
the RUBOUT key. Once the RETURN key is typed, no further input 
is accepted from the keyboard until the next time such input is 
requested by the calling program. 

Additional information on these routines and their usage can 
be found by reading through the listing (section 6.7) and by 
reading Chapter 5 in Introduction to Programming , 1970. 

6.6 EXAMPLE PROGRAM 

The following example program was assembled with the Tele- 
type I/O Subroutines as shown in section 6.7 (PROGRAM LISTING). 
The demonstration program was loaded prior to the I/O routines. 
If no program had preceded the I/O routines they would, of 
course, have started at location 200 (instead of location 400) . 
The output of the demonstration program is shown below: 

FLEASE TYPE YOUR NAME 
HERMAN 

IT IS A PLEASURE TO MEET YOU* HEP^AN 

The computer causes 

PLEASE TYPE YOUR NAME 

and a carriage return/line feed to be output. The user types 
his name on the keyboard, enters it with the RETURN key, and 
the computer then prints a carriage return/line feed followed by 

IT IS A PLEASURE TO MEET YOU, HERMAN 
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The program as input to the Assembler (PAL-D in this case) , 
looks as follows : 



/DEMONSTRATION 

/ 

*200 

START* TLS 

JMS TYPX 

MESGl 

JMS KREAD 

INAREA 

-20 

JMS TYPX 

MESG2 

TAD (INAREA-1 

DCA 10 

LOOP* CLA CLL 
TAD I 10 
SNA 

JMP DONE 
JMS TLSX 
JMP LOOP 

DONE* HLT 

JMP START 



OF TTY I/O SUBROUTINES 



/ADDRESS OF START OF PROGRAM 

/INITIALIZE TELEPRINTER FLAG 

/PRINT A MESSAGE 

/••PLEASE TYPE YOUR NAME'' 

/READ IN REPLY 

/UP TO 16 CHAR* 1 PER WORD 

/BEGINNING IN INAREA 

/PRINT SECOND MESSAGE 

/••IT IS A PLEASURE TO MEET YOU* " 

/SET AUTO INDEX REGISTER 10 TO 

/ADDRESS WHERE NPME IS STOREDC-1) 

/BEGIN PRINTING THE NAME 

/GET A CHARACTER 

/TEST FOR ZERO 

/IF ZERO* ALL DONE--QUIT 

/ELSE PRINT A CHARACTER 



MESGl* 
MESG2* 
INAREA* 



TEXT 
TEXT 



/IT IS A GOOD PRACTICE TO PUT 
/A JMP TO SOMEWHERE AFTER THE 
/HLT AT THE END OF A PROGRAM 
/IN CASE SOMEONE INADVERTANTLY 
/HITS •'CONTINUE^^. 
/^-PLEASE TYPE YOUR NAME-/ 
/-IT IS A PLEASURE TO MEET YOU* / 
/INPUT AREA FOR NAME 



The demonstration program assembled with PAL-D looks as 
follows : 

/DEMONSTRATION OF TTY I/O SUBROUTINES 



0200 


6046 


0201 


4777 


0202 


0222 


0203 


4776 


0204 


0256 


0205 


7760 


0206 


4777 


0207 


0236 


0210 


1375 



*200 

START. 



TLS 

JMS TYPX 

MESGl 

JMS KREAD 

INAREA 

-20 

^^S TYPX 

MESG2 

TAD (INAREA-1 



OF START OF PROGRAM 
/INITIALIZE TELEPRINTER FLAG 
/PRINT A MESSAGE 
/••PLEASE TYPE YOUR NAME** 
/READ IN REPLY 
/UP TO 16 CHAR* 1 PER WORD 
/BEGINNING IN INAREA 
/PRINT SECOND MESSAGE 
/••IT IS A PLEASURE TO MEET YOU* 
/SET AUTO INDEX REGISTER 10 TO 
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02 U 


3010 




DCA 


10 


0212 


7300 


LOOP, 


CLA 


CLL 


0213 


1410 




TAD 


I 10 


0214 


7450 




SNA 




0215 


5220 




JMP 


DONE 


0216 


4774 




JMS 


TLSX 


0217 


5212 




JMP 


LOOP 


0220 


7402 


DONE, 


HLT 




0221 


5200 




JMP 


START 



/ADDRESS WHERE NAME IS STORED(-l) 

/BEGIN PRINTING THE NAME 

/GET A CHARACTER 

/TEST FOR ZERO 

/IF ZERO, ALL DONE-- QUIT 

/ELSE PRINT A CHARACTER 



/IT IS A GOOD PRACTICE TO PUT 
/A JMP TO SOMEWHERE AFTER THE 
/HLT AT THE END OF A PROGRAM 
/IN CASE SOMEONE INADVERTANTLY 
/HITS "CONTINUE". 



0222 


3720 


MESGl, 


TEXT 


/-P 


0223 


1405 


LE 






0224 


0123 


AS 






0225 


0540 


E 






0226 


2431 


TY 






0227 


2005 


PE 






0230 


4031 


Y 






0231 


1725 


OU 






0232 


2240 


R 






0233 


1601 


NA 






0234 


1505 


ME 






0235 


3700 


-/ 






0236 


3711 


MESG2, 


TEXT 


/-I 


0237 


2440 


T 






0240 


1123 


IS 






0241 


4001 


A 






0242 


4020 


P 






0243 


1405 


LE 






0244 


0123 


AS 






0245 


2522 


UR 






0246 


0540 


E 






0247 


2417 


TO 






0250 


4015 


M 






0251 


0505 


EE 






0252 


2440 


T 






0253 


3117 


YO 






0254 


2554 


U, 






0255 


4000 


/ 






0256 


0000 


I N AREA, 








/INPUT AREA FOR NAME 
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6.7 PROGRAM LISTING 

As explained in section 6.6, this listing of the I/O routines 
was made following the example program shown in that section. 
These routines can start at any address if the user changes the 
starting address or will start at the beginning of the first free 
page after any programs loaded previously. 



/BASIC TELETYPE I/O SUBROUTINES 
/REVISION: 18-JAN-7 1 /GWB 

/COPYRIGHT 1971 DIGITAL EQUIPMENT CORPORATION 

/ MAYNARD* MASSACHUSETTS 01754 

/THESE SUBROUTINES ILLUSTRATE TYPICAL METHODS OF USING THE 

/STANDARD TELETYPE TO INPUT AND OUTPUT ALPHANUMERIC DATA 
/ON A PDP-8 FAMILY COMPUTER. 



/ --NOTES— 

/ (1) THE USER PROGRAM MUST INITIALIZE THE TELE- 

/ PRINTER FLAG BEFORE CALLING THESE SUBROUTINES. 

/ (2) THESE ROUTINES MAY ONLY BE CALLED FROM 
/ THE FIELD IN WHICH THEY RESIDE. 

/ORIGIN TO NEW PAGE 



*.-l 177+1 



/SUBROUTINE TO TYPE MESSAGES. 

/THIS SUBROUTINE PRINTS A MESSAGE TO BE STORED IN STRIPPED 

/SIX=BIT ASCII, TWO CHARACTERS PER WORD. THIS FOP-MAT 

/CAN BE EASILY GENERATED BY USING THE "TEXT" PSEUDO-OP IN 
/PROGRAMS ASSEMBLED BY PALD* PAL8, OR MACRO-8. 

/ENTRY* JMS TYPX 

/ POINTER (ADDRESS OF MESSAGE) 

/EXIT IS TO ENTRY+2 WITH THE AC CLEAR. 
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/ — NOTE — 

/THE FOLLOWING CHARACTERS HAVE SPECIAL MEANINGS: 

/VALUE CHARACTER COMMENTS 

/ 00 MARKS THE END OF MESSAGE* THE TEXT 



/ 

/ 37 



PSEUDO-OP INSERTS THIS CHARACTER. 
CAUSES A CARRIAGE RETURN/LINE FEED 

TO BE OUTPUT. 



0400 


0000 


TYPX* 









0401 


7300 




CLA 


CLL 




0402 


1600 




TAD 


I 


TYPX 


0403 


3216 




DCA 




TYPNT 


0404 


2200 




ISZ 




TYPX 


0405 


1616 


TYPXl* 


TAD 


I 


TYPNT 


0406 


7012 




RTR 






0407 


7012 




RTR 






0410 


7012 




RTR 






0411 


4217 




JMS 




TYPY 


0412 


1616 




TAD 


I 


TYPNT 


0413 


2216 




ISZ 




TYPNT 


0414 


4217 




JMS 




TYPY 


0415 


5205 




JMP 




TYPXl 



/GET POINTER 

/AND SAVE IT LOCALLY 



/GET LEFT HAND CHARACTER 
/THIS CAN BE CHANGED TO A 
/BYTE SWAP ON THE PDP-8E! 

/CONVERT AND TYPE 

/GET RIGHT HAND CHARACTER 

/MOVE POINTER TO NEXT WORD 

/CONVERT AND TYPE 
/CONTINUE UNTIL DONE. 



0416 0000 TYPNT* 



/POINTER TO STRING 



/THIS SUBROUTINE IS CALLED BY "TYPX" (AND "HRBX"!)-- 

/ENTER WITH THE CHARACTER TO TYPE IN AC6- 1 1 J 

/ (1) TESTS FOR TERMINATOR (00) 

/ (2) TESTS FOR CR-LF (37) CHARACTER 

/ (3) CONVERTS CHARACTER TO 8-BIT ASCII AND TYPES IT 



0417 


0000 


TYPY* 







0420 


0236 




AND 


TK77 


0421 


7450 




SNA 




0422 


5600 




JMP I 


TYPX 


0423 


1237 




TAD 


TKM37 


0424 


7440 




SZA 




0425 


5231 




JMP 


TYPYl 


0426 


1240 




TAD 


TK215 


0427 


4244 




JMS 


TLSX 


0430 


1241 




TAD 


TKM125 


0431 


7510 


TYPYl* 


SPA 




0432 


1242 




TAD 


TK100 


0433 


1243 




TAD 


TK237 


0434 


4244 




JMS 


TLSX 


0435 


5617 




JMP I 


TYPY 



/MASK OFF CHARACTER 
/TEST FOR TERMINATOR 
/EXIT IF TERMINATOR 

/TEST FOR CR-LF 
/NOT A 37 
/TYPE A -CR- 

/CONVERTS TO A -LF- (212) 

/TEST RANGE 
/RANGE IS 301-336 
/RANGE IS 240-277 
/TYPE CHARACTER 
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0436 


mil 


TK77* 


77 


0437 


7741 


TKM37* 


-37 


0440 


0215 


TK215* 


215 


0441 


7653 


TKM125* 


-125 


0442 


0100 


TK100, 


100 


0443 


0237 


TK237* 


237 



/MASK FOR AC6-11 
/TEST FOR CR-LF CHARACTER 
/ASCII VALUE OF -CR- 
/THIS PLUS 337 = 212 -LF- 
/CONVERT TO RANGE 301-336 
/CONVERT TO RANGE 240-277 



/TELETYPE OUTPUT SUBROUTINE. 

/ENTER WITH CHARACTER IN THE AC. 

/ --NOTE-- 

/THE TELETYPE FLAG MUST BE INITIALIZED 

/BEFORE CALLING THIS SUBROUTINE! 



0444 


0000 


TLSX, 





0445 


6041 




TSF 


0446 


5245 




JMP 


0447 


6046 




TLS 


0450 


7200 




CLA 


0451 


5644 




JMP I 



-1 



TLSX 



/WAIT FOR TELETYPE READY 



/TELETYPE INPUT SUBROUTINE. 

/EXIT WITH CHARACTER READ IN THE AC. 



0452 


0000 


KRBX* 







0453 


6031 




KSF 




0454 


5253 




JMP 


.-1 


0455 


6036 




KRB 




0456 


5652 




JMP I 


KRBX 



/WAIT FOR CHARACTER 



/TELETYPE INPUT SUBROUTINE. 

/THIS SUBROUTINE DEMONSTRATES HOW TO INPUT 

/ALPHANU-MERIC CHARACTERS FROM THE TELETYPE. IT READS 

/THE CHARACTERS INTO A BUFFER, ECHOES CHARACTERS TYPED, 

/AND PERFORMS MINOR EDITING: 

/ (1) CHARACTERS NULL(200 AND 000) AND LINE FEED 

/ ARE DELETED ON INPUT. 

/ (2) CHARACTER RUBOUT (377) DELETES THE PREVIOUS 

/ CHARACTER TYPED. IT ECHOES AS A BACKSLASH FOLLOWED 



/ 
/ 

/ 



BY THE CHARACTER DELETED (MULTIPLE RUBOUTS DO NOT 
ECHO BACKSLASH AFTER THE FIRSTS A NON-RUBOUT CHAR- 
ACTER CAUSES A "CLOSING" BACKSLASH TO BE PRINTED). 



/THE CHARACTt«CAKRl AGE RETURN TEP?MINATES INPUT. IT 
/ECHOES AS A CARRIAGE RETURN FOLLOWED BY A LINE FEED. 
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/ENTRY* JMS KREAD 

/ POINTER 

/ -LENGTH 

/EXIT IS TO ENTRy+25 ON 

/ ( 1) AC IS CLEAR. 

/ (2) A TERMINATING 

/ INPUT BUFFER (THE 

/ IN THE BUFFER). 



(ADDRESS OF 
(MINUS SIZE 
EXIT: 



INPUT BUFFER) 
OF INPUT BUFFER) 



WORD OF ZERO IS PLACED IN THE 
CARRIAGE RETURN IS NOT ENTERRED 



/ --NOTE-- 

/ON BUFFER OVERFLOW* CHARACTERS WILL BE ECHOED AS "BELL" 

/TO INFORM USER THAT BUFFER IS FULL. ALL CHARACTERS* 

/OTHER THAN CARRIAGE RETURN AND RUBOUT* ARE LOST. 

/THIS SUBROUTINE IS WRITTEN TO CO-RESIDE WITH THE TELETYPE 

/OUTPUT SUBROUTINES "TYPY" AND "TLSX". 



0457 


0000 


KREAD* 









0460 


7300 




CLA 


CLL 




0461 


1657 




TAD 


I 


KREAD 


0462 


2257 




ISZ 




KREAD 


0463 


3216 




DCA 




KRPNT 


0464 


1657 




TAD 


I 


KREAD 


0465 


3200 




DCA 




KRCNT 


0466 


4252 


KRBl* 


JMS 




KRBX 


0467 


3616 




DCA 


I 


KRPNT 


0470 


1360 




TAD 




KRTAB 


0471 


3345 




DCA 




KRBKS 






/ENTER 


SCANNING 


LOOP. 


0472 


1616 


KRB3* 


TAD 


I 


KRPNT 


047 3 


2345 




ISZ 




KRBKS 


0474 


7650 




SNA 


CLA 




047 5 


5745 




JMP 


I 


KRBKS 


0476 


2345 




ISZ 




KRBKS 


0477 


1745 




TAD 


I 


KRBKS 


0500 


7440 




SZA 






0501 


5272 




JMP 




KRB3 



/GET ADDRESS OF BUFFER 

/SET UP POINTER 
/GET SIZE OF BUFFER 
/SET UP COUNTER 

/GET CHARACTER 
/SAVE CHARACTER 
/LOAD POINTER TO TABLE 
/INTO TEMP. STORAGE 



/ADD IN CURRENT CHARACTER 
/ADVANCE INDEX TO JMP WORD 



/CALL SPECIAL ROUTINE 
/GO ON TO NEXT ENTRY 
/GET TABLE ENTRY 
/ZERO MARKS END OF TABLE 
/CONTINUE SCAN 



/NORMAL CHARACTER ROUTINE — 

/CHECK FOR BUFFER OVERFLOW* ECHO CHARACTER* AND 

/RETURN TO FETCH NEXT CHARACTER. 



0502 


4345 




JMS KRBKS 


0503 


2200 




ISZ KRCNT 


0504 


5312 




JMP KRB6 






/BUFFER 


OVERFLOW ! 


0505 


1356 




TAD TK207 


0506 


4244 


KRB5* 


JMS TLSX 


0507 


7240 




CLA CMA 


0510 


1200 




TAD KRCNT 


0511 


5265 




JMP KRBl- 



/ECHO BACKSLASH IF NEEDED 
/TEST FOR BUFFER OVERFLOW 
/NORMAL ROUTE 

/ECHO "BELL" 

/DECREMENT CHAR COUNTER 

/RETURN TO GET NEXT CHAR 
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0512 


1616 


KRB6^ 


TAD I 


KRPNT 


0513 


2216 




ISZ 


KRPNT 


0514 


4244 




JMS 


TLSX 


0515 


5266 




JMP 


KRBl 



/GET CHARACTER 
/ADVANCE BUFFER POINTER 
/ECHO CHARACTER 
/RETURN TO GET NEXT CHAR 



/RUBOUT ROUTINE-- 

/THIS ROUTINE IS CALLED WHEN A RUBOUT 



IS typed; IT DELETES 



0533 
0534 
0535 



1243 
4217 
4345 



/THE LAST CHARACTER IN THE BUFFER, RESET THE POINTERS* 

/AND DOES SOME FANCY ECHOING. 

/REVERSE RUBOUT FLAG TEST 
/EHCO BACKSLASH IF NEEDED 
/SET RUBOUT FLAG 
/CHECK FOR "EMPTY" BUFFER 

/BY COMPARING COUNTERS 

/NO RUBOUT PAST BEGINNING 

/DECREMENT BUFFER POINTER 

/GET CHARACTER TO ECHO 

/ECHO CR-LF- BACKSLASH ON ATTEMPT TO RUBOUT PAST THE START 
/OF THE INPUT BUFFER. 
KRUBl, TAD TK237 

JMS TYPY 

JMS KRBKS 



0516 


7240 KRUB> CLA 


CMA 




0517 


4345 


JMS 




KRBKS 


0520 


2355 


ISZ 




KRFLAG 


0521 


1657 


TAD 


I 


KREAD 


0522 


7041 


CIA 






0523 


1200 


TAD 




KRCNT 


0524 


7650 


SNA 


CLA 




0525 


5333 


JMP 




KRUBl 


0526 


7240 


CLA 


CMA 




0527 


1216 


TAD 




KRPNT 


0530 


3216 


DCA 




KRPNT 


0531 


1616 


TAD 


I 


KRPNT 


0532 


5306 


JMP 




KRB5 



/LOOKS LIKE A "-"! 

/FORCES A CR-LF 

/ALWAYS FORCES A BACKSLASH 



0536 5266 



JMP 



KRBl 



0537 4345 



/CARRIAGE RETURN ROUTINE-- 

/THIS ROUTINE IS CALLED WHEN A CARRIAGE RETURN IS TYPED; 
/ECHOES CR-LF> DEPOSITS IN INPUT BUFFER* AND EXITS. 
KRCR* JMS KRBKS /ECHO BACKSLASH IF NEEDED 



! 



0540 


1243 


TAD 




TK237 


0541 


4217 


JMS 




TYPY 


0542 


3616 


DCA 


I 


KRPNT 


0543 


8257 


IS2 




KHEAD 


0544 


5657 


JMP 


I 


KREAD 



/LOOKS LIKE A ' 
/FORCES A CR-LF 
/STORE ZERO IN BUFFER 

/AND EXIT. 
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/THIS SUBROUTINE ECHOES BACKSLASH WHEN KRFLAG IS NON-ZERO 
/NOTE-- LOCATION "KRBKS" IS ALSO USED AS A TEMPORARY 



0545 
0546 


0000 
1355 


KRBKS* 



TAD 


KRFLAG 


0547 


7640 




SZA CLA 




0550 


1357 




TAD 


TK334 


0551 


7440 




SZA 




0552 


4244 




JMS 


TLSX 


0553 


3355 




DCA 


KRFLAG 


0554 
0555 


5745 
0000 


KRFLAG* 


JMP I 



KRBKS 



/GET FLAG 

/BACKSLASH CHARACTER 

/TYPE A BACKSLASH 
/CLEAR FLAG 
/EXIT 

/SET TO +1 IF A RUBOUT WAS 

/LAST CHAR* OTHERWISE 0. 



0556 
0557 



0207 
0334 



/SAVE A COUPLE LOCATIONS BY USING TYPX AND TYPNT. 
KRPNT=TYPNT /POINTER TO INPUT BUFFER 

KRCNT=TYPX /MINUS NO. OF WORDS LEFT 

TK207* 207 /BELL IS ASCII 207 

TK334* 334 /BACKSLASH IS ASCII 334 



/SPECIAL CHARACTER TABLE- - 

/ENTRIES IN THIS TABLE ARE TWO WORDS LONG; 
/ (WORD 1) -VALUE OF CHARACTER 
/ (WORD 2) JMP TO PROPER ROUTINE 
/THE TABLE IS TERMINATED BY AN ENTRY OF 0. 



0560 0560 KRTAB* 



0561 


5266 


JMP KRBl 


0562 


7600 


-2005 


0563 


5266 


JMP KRBl 


0564 


7 566 


-2125 


0565 


5266 


JMP KRBl 


0566 


7563 


-2155 


0567 


5337 


JMP KRCR 


0570 


7401 


-3775 


0571 


5316 


JMP KRUB 


0572 


0000 






/NULL -- IGNORE 

/NULL -- IGNORE 

/LINE FEED -- IGNORE 

/CARRIAGE RETURN -- EXIT 

/RUBOUT -- DELETE CHARACTER 

/DENOTES END OF TABLE. 



PAUSE 
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Formerly 
Digital-8-16-S 



CHAPTER 7 
MASTER TAPE DUPLICATOR/VERIFIER 
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ABSTRACT 

This program duplicates and verifies 8-channel paper tapes using 
a PDP-8 family computer with high-speed reader and high-speed punch. 

the punch to operate at maximum speed. 

The program accumulates two types of checksums while reading and 
punching: 1) the number of nonzero characters on the tape, and 2) the 
sum of characters on the tape (both are taken modulo 4096) . 

When duplicating, the program compares the checksums at the end 
of the tape with the checksums accumulated by the read routine. If 
these differ, a reader error has occurred and a message is printed. 
Tapes are verified by reading them and comparing accumulated checksums 
with those at the end of the tape. Only master tapes produced by the 
program can be duplicated. The master tape has the two checksums 
punched at the end. 

7.2 REQUIREMENTS 

The program uses all of memory, except for the last page, as a 
buffer. 

The Master Tape Duplicator program runs on any PDP-8 family 
computer with high-speed reader and high-speed punch. The program 
tapes are as follows: 

Binary DIGITAL-8-16-S-BIN 
Source DIGITAL -8-16-S-ASC 

7 . 3 USAGE 

7.3.1 Loading 

The program is loaded with the Binary Loader (see Introduction 
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to Programming or Programming Languages for details) . 

7.3.2 To Produce a Master Tape 

A tape is read and duplicated by the punch. When the tape has 
run out of the reader, the accumulated checksums are punched. The 
tape that has been punched is the master tape used for duplication. 
It should be compared against the original to ensure that the tape was 
read correctly. 

7.3.3 To Duplicate the Master Tape 

The master tape that has been produced (see 7.3.2) is reproduced 
by the punch. Checksums are accumulated by the read routine and are 
compared with the checksums at the end of the tape. Checksums are 
punched and are used for verification (see 7.3.4). If the master tape 
is short enough to fit into the buffer, the program will notify the 
operator that more copies can be made without rereading the master. 
Blank tape is punched between copies. 

7.3.4 Verify Duplication 

Similar to duplication, but no punching takes place. Tapes are 
read and the accumulated checksums are compared against the checksums 
punched at the end. 

7 . 4 OPERATION PROCEDURES 

a. Set the SWITCH REGISTER to 200. 

b. Press the LOAD ADDRESS key; press the START key; the 
program halts. 

c. Set SWITCH REGISTER for the mode of operation as follows: 

Bit 0=1 Make master tape 

Bit 1=1 Duplicate master tape 

Bit 2=1 Verify duplication 

d. Place tape in reader starting on blank tape (all modes of 
operation must be started with blank leader tape in the 
reader) . 

e. Turn reader on. Turn punch on. 

f. Press the CONTINUE key. 

g. The program prints a message when the operation has been 
completed and then halts. 
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h. Proceed from step (c) unless multiple copies are being 
made . 

7.5 DESCRIPTION 

This program uses the program interrupt to keep the reader and 
the punch running at full speed. The reader fills a buffer and the 
punch punches from it. Checksums are accumulated by both the reader 
and the punch routines. 

7-fi KTHTF OM "PYTPa RT.aM'K' ■PT?aMT?c: TM r\rTDT Tr'T^nrcr^ mTvn-dC 

The Master Tape Duplicator does not check for extra blank frames 
in the duplicate tape. A future version of this program will perform 
such a check. Until this version is released, users with tape 

Digital-8-16-S having difficulty with binary tapes which load and 
verify properly but do not run properly should order tape and document 
number 5-10 from the DECUS Program Library. The document is called 
Paper Tape Reader Tester. It is a program for the PDP-5, but will run 
on the PDP-8 and should be used as a second verifying operation. 
Programs which are too long for the space left in core should be 
broken into two or more shorter tapes for this operation. 



7-3 



7 . 7 PROGRAM LISTING 



/COPf^IGHT 1971 OIGir^L £jJIf^'1i^f COr^r^O <A FI O.M 

/;vjAr^lAK':)> ^AS:i^GHJ5^rfS 

/TAPE DUPLICATOR FOR PDP-5/S 

/ -DEC-1/15/65 

/SINGLE BUFFERING-HEAD AND PUNCH UTILIZING 

/PROGRAiV} INTERRUPT 

/COMPUTE A CHARACTER COUNT AND CHECK SU'^ 

/FOR EACH TAPE-COMPARE WITH CHECKS AT 

/END OF TAPE 

/CHECKS ARE ALSO COMPUTED DURING PUNCHING 

/AND COMPARED 

/THREE MOOES OF OPERATION: 

/A. SWITCH ON-MAKE MASTER TAPE 

/B. SvaiCH 1 ON-DUPLICATE MASTER TAPE 

/C. SWITCH 2 ON- VERIFY DUPLICATION 

/DURING DUPLICATION, THE PROGRAM WILL NOTIFY 

/THE OPERATOR WHETHER OR NOT MORE COPIES 

/CAN BE MADE WITHOUT RE-READING THE 

/MASTER 

/DEFINITIONS OF INTERRUPT LOCATIONS: 

/FOR THE PDP-8J INTER=0 

/FOR THE POP- 5; INTER=1 

/PAGE 1 

INTER=0 







*INTER+ 


1 






3001 


5020 




JMP 


HNDL 


0002 


0632 


NPNT, 


DPRT 






0003 


0600 


El, 


TESl 






0004 


0615 


E2, 
*16 


TES2 






0016 


0000 


NDXR, 









0017 


0000 


iMDXP, 









0020 


601 1 


HNDL, 


RSF 






0021 


7410 




SKP 






0022 


5431 




JMP 


I 


READ 


0023 


6021 




PSF 






0024 


7410 




SKP 






0025 


5434 




JMP 


I 


PNC 


0026 


4567 




JMS 


I 


CRLF 


0027 


0000 


DSMS* 


ION 






0030 


5400 




JMP 


I 


INTE 


0031 


0000 


READ, 









0032 


6014 




RFC 






0033 


5027 




JMP 


DSMS 


0034 


0000 


PNC, 









0035 


6026 




PLS 






0036 


7230 




CLA 






0037 


5027 




JMP 


DSMS 



/HANDLE INTERRUPT 



/AUTO-INDEX REGISTER 
/AUTO-INDEX REGISTER 



/750 CAUSED INTERRUPT 



/7 5A PUNCH CAUSED INTERRUPT 
/EXTRANEOUS-CLEAR FLAGS 
/ENABLE INTERRUPT 
/RETURN 
/CALLED AS A 
/SUBROUTINE TO PROVIDE 
/RETURN ADDRESS 
/CALLED AS SUBROUTINE 
/PROVIDES RETURN 
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0040 


1417 PNCH* TAD 


I NDXP 


0041 


7510 


SPA 




0042 


5570 


JMP 


I PDUN 


0043 


3143 


OCA 


HLD2 


0044 


1 143 


TAD 


HLD2 


0045 


7440 


SZA 




004 6 


2145 


ISZ 


ZROP 


0047 


7000 


NOP 




00 50 


1 147 


TAD 


CHKP 


0051 


3147 


OCA 


CHKP 


00 52 


1 143 


TAD 


HLD2 


0053 


4034 


JMS 


PNC 


0054 


5040 


JMP 


PNCH 


0055 


6012 RDl 


HRB 




0056 


3J42 


DCA 


HLDl 


0057 


5105 RSTl* Jf^P 


FRST 


0060 


1 142 


TAD 


HLDl 


0061 


7440 


SZA 




0062 


2144 


ISZ 


ZROR 


00 63 


70'30 


NOP 




0064 


1 146 


TAD 


CHKR 


0065 


3146 


DCA 


CHKR 


0066 


t 160 


TAD 


TIME 


0067 


3157 


DCA 


1 1 MR 


00 7 


7410 RST2# SKP 




007 1 


5155 


J,^P 


VY 


00 72 


1 142 


TAD 


HLDl 


0073 


3416 


DCA 


I NDXR 


0074 


2163 


ISZ 


RCNT 


00 7 5 


7410 


SKP 




0076 


5571 


JMP 


I FUL 


0077 


4031 


J>1S 


READ 


0100 


;M64 


ISZ 


STRT 


0101 


5055 


JiMP 


RDl 


0132 


7240 


CLA 


CMA 


0103 


3175 


OCA 


SCON 


0134 


5040 


Ji^P 


PNCH 


0105 


1142 FRST, TAD 


HLDl 


0136 


1 161 


TAD 


TSTl 


0107 


7640 


SZA 


CLA 


01 10 


5060 


JHP 


RST1^■1 


01 1 1 


1 153 


TAD 


TRY2 


01 12 


3057 


DCA 


RSTl 


01 13 


5060 


JMP 


RSTl+1 


01 14 


1142 SCiMD* TAD 


HLDl 


0115 


1 162 


TAD 


TST2 


01 16 


7640 


SZA 


CLA 


0117 


Si 23 


JHP 


• i-4 


0120 


1154 


TAD 


TRY3 


0121 


3057 


DCA 


RSTl 


0122 


5060 


JMP 


RSTl+1 



/GET NEXT CHARACTER 
/IF IT IS 7777, IT 
/IS END OF TEXT 



/COUNT NON-ZERO CHARACTERS 

/MODULO 409 6 

/ACCUMULATE SUM MODULO 4096 



/GO GET NEXT 

/READ 750 BUFFER 

/SAVE IT 

/OF "SCND" OR "THRD" 



/COUNT MODULO 409 6 

/ACCUMULATE SUM 

/RESET END-OR-TAPE TIMER 



/GET CHARACTER 

/PUT IN BUFFER 

/IS BUFFER FULL? 

/NO 

/YES 

/FETCH NEXT CHARACTER 

/DELAY START OF PUNCHING 



/START PUNCHING 
/TEST TO SEE IF 
/CHARACTER IS FIRST 
/IN CHECK- SUM IDENTIFIER 
/IF IT IS-SET SWITCH 
/TO TEST FOR SECOND 
/CHARACTER NEXT 

/CHECK FOR SECOND CHARACTER 
/IDENTIFIER - IF FOUND 

/TEST FOR THIRD NEXT 



7-5 



0123 


1 I 52 




TAD 


TRYl 


0124 


5121 




JMP 


.-3 


0125 


1 142 


THRD, 


TAD 


HLDl 


0126 


1161 




TAD 


TSTl 


0127 


7 6 40 




SZA 


CLA 


0130 


5123 




J(^P 


.-5 


0131 


7240 




CLA 


CMA 


0132 


3416 




OCA 


I iMDXR 


0133 


4541 




JMS 


I GETl 


0134 


3151 




DCA 


MCHK 


0135 


4541 




J.VJS 


I GETl 


0136 


3150 




DCA 


MZRO 


0137 


5 540 




JMP 


I .-n 


0140 


0303 




SWT 1 


1 


0141 


0565 


GETU 


GET 




0142 


0000 


HLDl, 







0143 


0000 


HLD2* 







0144 


0000 


ZROR> 







0145 


0000 


ZROP* 







0146 


0000 


CHKR, 







0147 


0000 


CHKP, 







0150 


0000 


^ZRO, 







151 


0000 


i^CHK, 







0152 


5105 


TRYl* 


JMP 


FRST 


0153 


51 14 


TRY2> 


JVJP 


scm 


0154 


5125 


TRY 3* 


JMP 


THRO 


0155 


4031 


VY* 


JMS 


READ 


0156 


5055 




JMP 


RDl 


0157 


0000 


TIMR* 







0160 


0000 


TIME* 







0161 


7526 


TSTl, 


7526 



0162 7653 TST2* 



0163 
0164 
0165 
0166 
3167 
0170 
0171 
0172 
0173 
0174 
0175 
0176 
0177 



0000 
0000 
7000 
7410 
0345 
0000 
0320 
00 7 7 
0000 
0000 
0000 
0377 
0002 



RCiMT* 

STRT* 

NOPT* 

SKIP> 

CRLF* 

PDUN, 

FUL, 

BIT6, 

DCON, 

VCt^T* 

SCON, 

0311 ! 

TWO* 



7653 





NOP 

SKP 

CFLG 



8FUL 

007 7 







037 7 

0002 



/TEST FOR THIRD CHARACTER 
/l^ IDENTIFIER - IF FOUND 
/READ CHECKS FROM TAPE 
/IF NOT - RESET FOR FIRST 

/SET END-OF PUNCH FLAG 

/MEASURED CHECK- SUM 

/MEASURED ZERO-COUNT 

/GET 12-BIT WORD 



/f^OF NON-ZERO READ 
/itOV NON-ZERO PUNCHED 
/CHECK SUM - READ 
/CHECK SUM - PUNCH 
/#0F NON-ZERO MEASURED 
/CHECK SUM - MEASURED 



/WHEN VERIFY I NG-DON' 
/PUNCHING 



START 



/2'S COMPLEMENT 1ST AND 
/THIRD IDENTIFIER 

/TWO'S COMPLEMENT OF 2ND 
/IHENTI FI ER 



/START OF PUNCHING FLAG 



7-6 



0200 


7200 


0201 


3174 


0202 


7200 


0203 


3144 


0204 


3145 


020 5 


3146 


ltJC-)£J U 


O 1 /. "7 


0207 


3173 


0210 


6012 


021 1 


6022 


0212 


7200 


0213 


3175 


0214 


1 152 


0215 


3057 


0216 


1 166 


0217 


3070 


0220 


1 166 


0221 


3303 


0222 


1341 


0223 


3164 


0224 


7402 


022 5 


7604 


0226 


7004 


0227 


7430 


0230 


5250 


0231 


7 004 


0232 


7430 


0233 


7402 


0234 


7004 


0235 


7630 


0236 


5241 


023 7 


7040 


0240 


5224 


024 1 


1 165 


0242 


3303 


0243 


1 165 


0244 


3070 


0245 


1342 


0246 


3336 


024 7 


526 1 


0250 


7200 


0251 


1 343 


02 52 


3336 


02 53 


3174 


0254 


5261 


0255 


7200 


0256 


1344 


0257 


3336 


0260 


3174 



*2i 



LOOP* 



L0P1> 



CRTE* 



OUP. 



CLA 




DCA 


Z VCiMT 


CLA 




DCA 


ZROR 


DCA 


ZROP 


DCA 


Z CHKR 




-7 r«LJiy^o 


DCA 


DCi 


RRB 




PCP 




CLA 




DCA 


SCON 


TAD 


Z TRYl 


DCA 


Z RSTl 


TAD 


Z SKIP 


OCA 


Z RST2 


TAD 


Z SKIP 


DCA 


SwTl 


TAD 


DLAY 


DCA 


Z STRT 


HLT 




CLA 


OSR 


RAL 




SZL 




JMP 


CRTE 


RAL 




SZL 




JiV]P 


DUP 


RAL 




SZL 


CLA 


JHP 


.+3 


CM A 




JMP 


LOPl 


TAD 


NOPT 


DCA 


SWTl 


TAD 


Z NOPT 


DCA 


RST2 


TAD 


VRPT 


DCA 


CO.^JR 


J.'-IP 


GO 


CLA 




TAD 


CRPT 


DCA 


COiMR 


DCA 


Z VCi^iT 


JMP 


GO 


CLA 




TAD 


DUPT 


DCA 


CONR 


nnA 


7 UCiMT 



/RESET VERIFY COUNT 

/RESET PUNCH* READER 
/COi^PUTED CHECKS 



/RESET BUFFER OVER FLAG 
/CLEAR HARDWARE FLAGS 



/RESET START PUNCH FLAG 
/SET PROGRA^I SWITCHES 



/SET START OF PUNCHING DELAY 



/BIT 0=1* CREATE MASTER 

/BIT 1=1* DUPLICATE 

/BIT 2=1* VERIFY 
/ERROR SET C(AC)=7777 

/NO PUNCHING - DON'T 
/WAIT FOR PUNCH 

/DON*T START PUNCHING 

/SET-UP RETURN FOR END 

/SET-UP RETURN FOR END 
/SET-UP RETURN FOR END 



7-7 



026 1 


4345 


GO, 


JMS 


CFLG 


0P62 


1337 




TAD 


BUF 


0263 


3016 




DCA 


iMDXR 


0264 


1337 




TAD 


BUF 


0265 


3017 




DCA 


NDXP 


0266 


1340 




TAD 


OVH 


026 7 


3163 




DCA 


RCNT 


0270 


1333 




TAD 


SA 


027 1 


3000 




DCA 


I. NITER 


0272 


1 160 




TAD 


Z TIME 


0273 


3157 




DCA 


TIMR 


02 7 4 


4031 




JMS 


READ 


027 5 


5055 




JMP 


Z RDl 


02 7 6 


2157 


SAT> 


ISZ 


Z TIMR 


0277 


5276 




JMP 


.- 1 


0300 


3000 




I OF 




0301 


7240 




CLA 


CMA 


0302 


3416 




OCA 


I Z iSJDXR 


0303 


7410 


SWT W 


SKP 




0304 


5736 




JMP 


I COiMR 


0305 


1336 




TAD 


CONR 


0306 


3170 




DCA 


PDUN 


0307 


1 175 




TAD 


Z SCON 


0310 


7700 




SMA 


CLA 


031 1 


5315 




JMP 


.<-4 


0312 


0000 




ION 




0313 


7200 




CLA 




0314 


5313 




JMP 


.-1 


0315 


1334 




TAD 


SAl 


0316 


3000 




DCA 


INTER 


0317 


5102 




JMP 


Z FRST-3 


0320 


7240 


BFULi 


CLA 


CMA 


0321 


3416 




DCA 


I Z iVDXR 


0322 


2173 




ISZ 


Z DCON 


0323 


1335 




TAD 


RET 


0324 


3170 




DCA 


Z PDUN 


0325 


5307 




JMP 


BFUL- 1 1 


0326 


1341 


FILL# 


TAD 


DLAY 


0327 


3164 




DCA 


STRT 


0330 


3175 




DCA 


Z SCON 


0331 


6022 




PCF 




0332 


5262 




JMP 


GO+1 


0333 


027 6 


SA, 


SAT 




0334 


0312 


SA1# 


8FUL-6 


0335 


0326 


RET* 


FILL 


0336 


0000 


CONR, 







0337 


1063 


BUF* 


X-1 




0340 


1274 


OVR* 


X + 210 


034 1 


7760 


DLAY* 


1169 


) 


0342 


0400 


VRPT* 


VRFY 





/CLEAR FLAGS 

/SET-UP BUFFER 
/POINTERS FOR 
/READ AND PUNCH 

/SET BUFFER- FULL COUNT 

/INITIALIZE INTERRUPT 

/SET END-OF-TAPE TIMER 
/START READING 



/END-OF-TAPE 

/SET END-OF- PUNCHING FLAG 
/OR NOP FOR VERIFY 



/SET RETURN FOR PUNCH DONE 

/DID WE START PUNCHING? 

/NO - 

/YES - WAIT FOR PUNCHING 



/START PUNCHING 



/BUFFER-FULL 

/SET-UP END-OF-PUNCHING FLAG 

/•FILL' 



/ENTER WHEN BUFFER 
/OVERFLOWED AND HAS 



/BEEN PUNCHED 



/START OF BUFFER 
/BUFFER-FULL COUNT 
/DELAY START OF PUNCHING 
/DONE POINTERS 



7-8 



0343 

0344 


404 
0445 


CRPT, 
OUPT* 


HRFT 
DUPL 




0345 


0000 


CFLG, 







34 6 


6042 




TCP 




0347 


6072 




6072 




0350 


6 7 72 




6 7 72 




0351 


6502 




6502 




3 52 


6732 




6732 




0353 


7 320 




CLA 


CLL CML 


03 54 


70 12 




RTR 




0355 


6722 




6722 




0356 


7004 




RAL 




0357 


6702 




6 7 02 




0360 


6 6 52 




6652 




0361 


6534 




6534 


1 


0362 


6032 




KCC 




0363 


5745 


PAUSE 
*400 


JMP 


I CFLG 


0400 


21 74 


VRFY* 


ISZ 


Z VCNT 


0401 


4403 




JMS 


I El 


8402 


536 1 




JMP 


VER 


0403 


5351 




JMP 


VOK 


40^ 


4404 


CRET* 


JMS 


I E2 


0405 


5345 




JtVJP 


i^ER 


0406 


4314 




JMS 


3LNK 


040 7 


1327 




TAD 


HERE 


04 10 


3000 




OCA 


liVTER 


041 1 


1325 




TAD 


Tl 


04 12 


403 4 




JMS 


Z PNC 


04 13 


1326 




TAD 


T2 


04 14 


4034 




J;^s 


PNC 


0415 


1325 




TAD 


Tl 


0416 


4034 




Ji^S 


PiMC 


0417 


1 146 




TAD 


CHKR 


420 


1 176 




TAD 


C3 7 7 


0421 


423 1 




Ji^S 


SIX 


0422 


1 144 




TAD 


/ ZkOR 


0423 


1 177 




TAD 


Z TWO 


0424 


423 1 




j^yis 


SIX 


042 5 


4314 




Ji^S 


RL.^K 


042 6 


133 5 




TAD 


ADl 


0427 


4734 




J<4S 


1 PrvNT 


0430 


57 33 




Ji^lP 


I LOP 


143 1 


)0 '9 


SIX, 







0432 


3143 




DCA 


Z HLOP 


M A 3 3 


1 1 43 




T An. 


. 1 U, l> c 


0434 


7012 




RTn 




i'43S 


7^il2 




RTR 




04 3^ 


7 012 




RTR 





/CLEAR FLAGS 
/TELEPRINTER 
/LIGHT PEN 
/Mi CRO TAPE 
/PLOTTER 
/DISABLE ERF 



FLAG (57A) 



/DISABLE WCO FLAG C 57A) 
/SET C(AC)=4000 
/DISABLE TCR FLAG ( 57A) 
/LINE-PRINTER FLAG 
/1 33 ADC FLAG 
/KEY- BOARD C AND AC) 



/COMPUTED VS PLEASURED CHECKS 
/VERIFY ERROR 
/VERIFY OK 

/CO.^PUTED VS PUNCHED 
/ME.viORY ERROR 



/SET INTERRUPT POINTER 

/PUNCH CHECKSUM 

/IDENTIFIER CODES 

/BIT PATTERN IS: 

/ 10101010 

/ 1 1 1 1 

/10101010 

/PUNCH CHECKS 

/ALTER CHECKS 



/PUNCH BLANK TAPE 



/PUNCH NUMBER IN AC 



7-9 



0437 


0172 


0440 


4034 


044 1 


1 143 


0442 


0172 


0443 


4034 


0444 


563 1 


0445 


4403 


0446 


5347 


0447 


4 404 


04 50 


5345 


0451 


132 7 


0452 


3000 


0453 


1325 


0454 


4034 



0455 1146 



0456 


4231 


0457 


1 144 


0460 


4231 


04 6 1 


4314 


0462 


1 173 


0463 


7640 


04 6 4 


5356 


0465 


1324 


0466 


7 6 40 



0467 ;d305 



0470 


1336 


0471 


4734 


0472 


7 402 


0473 


7604 


04 7 4 


7 04 1 


0475 


3324 


0476 


1332 


0477 


3170 


0500 


1360 


501 


3017 


0502 


3145 


0503 


3147 


0504 


5040 


0505 


2324 


0506 


7410 


0507 


5356 


0510 


1337 


051 1 


4734 


0512 


7 602 


0513 


5330 



OUPL 



GOl 



TST4, 



AND 


Z BIT6 


JNS 


Z PNC 


TAD 


Z HL02 


AND 


Z BIT6 


JMS 


Z P.MC 


JiAP 


I SIX 


Jf«1S 


I Z El 


J(AP 


R£R 


Ji^S 


I Z E2 


vJi'^P 


i^ER 


TAD 


HERE 


DCA 


INTER 


TAD 


Tl 


J>1S 


Z PNC 



TAD Z CHKK 



Ji^S 


SIX 


TAD 


Z ZkOR 


J>1S 


SIX 


Ji^S 


BLNK 


TAD 


Z DC ON 


SZA 


CLA 


JMP 


DOK 


TAD 


DCNT 


SZA 


CLA 



JMP TST4 



TAD 


AD2 


Jt^S 


I PRNT 


HLT 




CLA 


OSR 


C(^A 


I AC 


DCA 


DCNT 


TAD 


HEKl 


DCA 


Z PDUN 


TAD 


BF 


DCA 


Z NDXP 


DCA 


Z ZROP 


DCA 


Z CHKP 


J.^P 


Z PNCH 


ISZ 


DCNT 


SKP 




JMP 


DOK 


TAD 


AD3 


JMS 


I PRNT 


HLT 


CLA 


jMP 


TST4-5 



/COMPARE COMPUTED VS 
/f^EASUKED CHECKS 
/HEADER ERROR 
/COi^PARE COMPUTED VS 
/PUNCHED CHECKS 
/MEMORY ERROR 



/PUNCH THIRD IDENTIFIER 

/READER STOPPED WHEN THIRD 

/IDENTIFIER 

/HAS BEEN FOUND, IE IT IS 

/NOT IN THf BJS'FFR 



/PUNCH BLANK TAPE 



/BUFFER OVERLAP-NO MORE DUp. 

/STARTED MULTIPLE 
/DuPLICAI I US)?? 

/MULTIPLE DUPLICATION HAS 
/SI A'<IED 



/READ NUMBER FROM SR 



/SET RETURN FOR PUNCHING 

/DONE 

/RESET BUFFER POINTER 

/RESET PUNCH-COMPUTED CHECKS 



/START PUNCHING 
/ARE WE DONE YET? 

/YES 

/NO 

/HALT 

/MAKE NEXT COPY 



7-10 



0514 


0000 


BL.^K* 





0515 


1323 




TAD tVjCiMT 


516 


3 157 




DCA Z Tli^R 


0517 


4034 




JMS Z PNC 


0520 


2157 




ISZ Z Tli^iR 




C O 1 T 






0522 


5714 




JMP I BLiMK 


0523 


7600 


MCNT* 


7600 


0524 


0000 


DCNT* 





0525 


0252 


T 1 . 


0252 


0526 


0125 


12, 


0125 


0527 


0530 


HERE* 


HERE^-l 


0530 


7200 




CLA 


0531 


5330 




JMP .-1 


0532 


0447 


HEHl, 


GOl 


0533 


0202 


LOP, 


LOOP 


0534 


0673 


PRNT* 


PR I. Si 


0535 


0741 


AOl, 


TABl 


0536 


0751 


AD2, 


TAB2 


0537 


1007 


AD3* 


TAB3 


0540 


1017 


AD4, 


TAB4 


0541 


1026 


AD5> 


TABS 


0542 


1036 


AD6, 


TAB6 


0543 


1045 


AD7> 


TAB7 


0544 


1054 


AD8* 


TABS 


0545 


1342 


MER, 


TAD AD6 


0546 


5354 




JMP VOK+3 


0547 


1343 


RER* 


TAD AD7 


05 50 


5354 




JMP V0K^■3 


0551 


1 174 


VOK, 


TAD Z VCiMT 


0552 


4402 




JMS I iNJPNT 


0553 


1340 




TAD AD4 


0554 


4734 




JMS I PRNT 


0555 


5733 




JMP I LOP 


0556 


1341 


DOK> 


TAD AD5 


0557 


5354 




JMP VOK+3 


0560 


1063 


BF* 


X-1 


056 1 


1 174 


VER> 


TAD Z VC.MT 


0562 


4402 




JMS I Z NPNT 


0563 


1344 




TAD ADS 


0564 


5354 




JMP VOK+3 


0565 


0000 


GET* 





0566 


4031 




JMS Z READ 


0567 


6012 




RRB 


0570 


7 106 




CLL RTL 


057 1 


7006 




RTL 


0572 


7006 




RTL 


0573 


3142 




DCA Z HLDl 


0574 


4031 




JMS Z READ 


0575 


6012 




KRB 


057 6 


1 142 




TAD Z HLDl 


0577 


5765 




JMP I GET 



/SUBROUTINE TO 
/BLANK TAPE 



PUNCH 



/IDENTIFIERS 



/MASTER CREATED 
/PRINT TABLE 
/PRINT TABLE 
/VERIFY OK 
/DUP OK 
/MEMORY ERROR 
/READER ERROR 
/VERIFY ERROR 



/VERIFY OK 



/DUPLICATION OK 



/VERIFY OK 



/ROUTINE TO READ 2-6 BIT 

/CHARACTERS 



7-11 





^oWid 




0600 


0000 TESIj. 




0601 


7 200 


CLA 




0608 


1 144 


TAD 


Z ZROR 


060 3 


7041 


CMA 


I AC 


0604 


1 150 


TAD 


Z i^ZHO 


060 5 


7 6 40 


SZA 


CLA 


060 6 


5600 


JMP 


I TESl 


0607 


1 146 


TAO 


Z CHKK 


0610 


7 04 1 


CiMA 


I AC 


061 1 


1 151 


TAD 


Z >1CHK 


0612 


7650 


SiMA 


CLA 


0613 


2200 


ISZ 


TESl 


0614 


5600 


J^AP 


I TESl 


0615 


0000 T?rs 


?.> 




0616 


7 200 


CLA 




0617 


1 145 


TAD 


Z ZHOP 


0680 


7041 


C-V)A 


I AC 


0621 


1 144 


TAO 


Z ZROK 


0622 


7 6 40 


SZA 


CLA 


0623 


5615 


JMP 


I TES2 


0624 


1146 


TAD 


Z CHKk 


062 5 


7041 


Ci^A 


I AC 


0626 


1 147 


TAD 


Z CHKP 


062 7 


7650 


SNA 


CLA 


0630 


2215 


ISZ 


TES2 


0631 


5615 


JiMP 


I TES2 


0632 


0000 DKK 


T, 




0633 


3143 


DCA 


Z HLD2 


0634 


3142 


DC A 


Z HLDl 


0635 


1264 


TAD 


CNTR 


0636 


3272 


DCA 


C.MT 


06 3 7 


1263 


TAD 


ADDR 


0640 


3245 


DCA 


XYZ<-3 


0641 


74 10 


SKP 




0642 


3143 XYZ 


.» DCA 


Z HLD2 


0643 


7100 


CLL 




0644 


1 143 


TAD 


Z HLD2 


0645 


7422 


TAD 


CON 


0646 


7430 


SZL 




0647 


2142 


ISZ 


Z HLDl 


0650 


7430 


SZL 




06 51 


5242 


JHP 


XYZ 


06 52 


7200 


CLA 




0653 


1 142 


TAD 


Z HLDl 


0654 


127 1 


TAD 


C260 


0655 


4325 


JMS 


TYPE 


0656 


3142 


DCA 


Z HLDl 


06 57 


2245 


ISZ 


XYZ + 3 


06 60 


2272 


ISZ 


CNT 


0661 


5244 


JMP 


xyz-f-2 



/COMPAHE READER COi^PUTED 

/TO MEASURED SUMS 

/IF EOUAL> RETURN TO CALL+ ^ 

/OTHERWISE RETURN TO CALL+ 1 



/COMPARE PUNCH COMPUTED 
/SUMS 

/TO READER COMPUTED SUMS 

/IE EQUAL* RETURN TO CALL^- 2 
/OTHERWISE RETURN TO CALL*- 1 



/CONVERT BINARY WORD IN AC 

/TO 4 DIGIT UNSIGNED DECIMAL 
/NUMBER AND TYPE IT 

/IDENTICAL TO ROUTINE IN 
/LI BRARY 



'-12 



0662 


5632 




JMP 


I DPHT 


0663 


7422 


ADOH, 


TAD 


CO.N 


0664 


7774 


CiMTR^ 


7774 




0665 


6030 


CON> 


6030 




0666 


7634 




7634 




0667 


7766 




7766 




06 70 


7777 




nil 




0671 


0260 


C260> 


0260 




0672 


0000 


CtMT, 







0673 


0000 


PRIiM, 







0674 


3143 




OCA 


^ HL02 


0675 


1543 




TAO 


I KLD2 


0676 


7450 




SiMA 




06 7 7 


5320 




JMP 


CR 


SIR IN 


G 








0700 


7012 




RTR 




0701 


7012 




RTR 




0702 


7012 




RTR 




07 03 


4310 




JMS 


GPRT 


0704 


1543 




TAD 


I Z HLD2 


0705 


4310 




JMS 


GPRT 


0706 


2143 




ISZ 


Z HLD2 


0707 


5275 




JtMP 


PRIN+2 


07 10 


0000 


GPRT, 







0711 


0172 




AND 


Z BIT6 


0712 


1334 




TAD 


M40 


0713 


7510 




SPA 




07 14 


1335 




TAD 


C100 


0715 


1336 




TAD 


C200 


0716 


4325 




JMS 


TYPE 


0717 


5710 




JMP 


I GPRT 


0720 


1337 


CR> 


TAO 


CAR 


721 


4325 




JMS 


TYPE 


0722 


1340 




TAO 


LF 


0723 


4325 




JMS 


TYPE 


0724 


5673 




Ji^P 


I PRIN 


0725 


0000 


TYPE* 







726 


6046 




TLS 




0727 


6041 




TSF 




0730 


5327 




JMP 


.-1 


0731 


6042 




TCF 




07 32 


7200 




CLA 




0733 


5725 




J,^P 


I TYPE 


0734 


7740 


fv!40* 


7745 


) 


0735 


0100 


C100^ 


0100 


0736 


0240 


C200* 


0240 


0737 


0215 


CAR> 


0215 


0740 


0212 


LF* 


0212 


0741 


1501 


TAB1> 


150] 


1 


7 42 


2324 




2324 


0743 


522 




0522 



/ROUTINE TO PRINT 
/OF PACKED ASCII 
/ENTER WITH S.A. 



/IN AC: EXIT ON 

/IN STRING 

/AFTER TYPING CR-LF 



A STRING 

PM AC APTCLJ c- 

OF STRING 
ELE^vjr.NJx 



/THIS ROUTINE CONVERTS 
/6BIT TO ASCII 



/TYPE CR-LF 



/TYPE CHARACTER IN AC 



/PRINT TABLES 
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07 4 4 


4003 


4003 


0745 


2205 


2205 


0746 


0124 


124 


0747 


3504 


0504 


0750 


0000 


0000 


07 51 


2305 TAB2» 2305 


0752 


2440 


2440 


0753 


2327 


2327 


0754 


1 124 


1124 


0755 


0310 


0310 


0756 


0523 


523 


0757 


4024 


4024 


0760 


1740 


1740 


07 6 1 


1625 


1625 


0762 


1502 


1502 


0763 


0522 


0522 


07 64 


401 7 


4017 


0765 


640 


0640 


0766 


0317 


0317 


07 6 7 


20 1 1 


2011 


0770 


0523 


0523 


0771 


4024 


4024 


0772 


1740 


17 40 


07 7 3 


0205 


0205 


0774 


4015 


4015 


0775 


0104 


104 


0776 


540 


0540 


07 7 7 


2022 


2022 


1000 


0523 


0523 


1001 


2340 


2340 


1002 


031 7 


0317 


1003 


1624 


1624 


100 4 


1116 


1116 


100 5 


2505 


2 50 5 


1006 


0000 


0000 


1007 


2022 TAB 


3> 2022 


1010 


523 


523 


10 11 


2340 


2340 


1012 


031 7 


0317 


1013 


1624 


1624 


1014 


1116 


1116 


1015 


2505 


2505 


1016 


0000 


0000 


1017 


4040 TAB45 4040 


1020 


2605 


2605 


1021 


221 1 


221 1 


1022 


6 3 1 


063 1 


1023 


4017 


401 7 


1024 


13 40 


1340 


\i^p-r> 


0000 


0000 
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1026 


42 5 


1027 


2014 


1030 


1 103 


1031 


124 


1032 


1117 


1 133 


1640 


1034 


1713 


1035 


0000 


1036 


150 5 


1037 


1517 


10^0 


2231 


1041 


400 5 


1042 


2222 


1043 


1722 


1044 


0000 


1045 


2205 


1046 


i 4 


104 / 


1522 


10 50 


4005 


1051 


2222 


1052 


1 722 


10 53 


0000 


1354 


4040 


1055 


2605 


1056 


221 1 


1057 


0631 


1060 


4005 


1061 


2222 


10 62 


1722 


1063 


0000 


1364 


0000 



TAB5> 



i AB6> 



TAR 7, 



TABS 



0425 
2014 
1 103 
0124 
1117 
1640 
1713 
0000 
1505 
1517 
2231 
400 5 
2222 
1722 
0000 
2205 
0104 
0522 
4 005 
2222 
1722 
0000 
4040 
2605 
221 1 
0631 
4005 
2222 
1722 
0000 




/START OF BUFFER 
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CHAPTER 8 
INCREMENTAL PLOTTER SUBROUTINE 

8.1 ABSTRACT 

The Incremental Plotter Subroutine moves the pen of a type 
350 plotter to a new position along the best straight line. The 
pen can be raised or lowered during the motion. 

8.2 REQUIREMENTS 

The subroutine requires one memory page of storage (12 8, ^ 

or 200o words) . The routine works on any PDP-8 family computer 
o 

equipped with a type 350 Plotter Control and Plotter. 

The routine is distributed as an ASCII source tape as fol- 



lows : 



Digital- 8-12-U-ASCII 



USAGE 



8.3.1 Loading and Assembly 

The source tape as supplied has no origin setting and ends 
with a PAUSE statement. This tape can be assembled with a user 
program (which supplies an origin setting) or assembled by itself 

The tape can be assembled with any of the PDP-8 family as- 



iKI 



c Cimrv I i^i T-c 



i-1 



8.3.2 Calling Sequence 

The plotter routine is called by executing a JMS PLOTX. 
The contents of the accumulator specify the operation of the 
subroutine as follows : 



C(AC) = -1 The location registers internal to the 

subroutine are reset to zero and the 
pen is raised. Control returns to the 
instruction following the calling JMS 
instruction. 

CCAC) = The pen is lowered (if it was up) and 

is moved to the new located as described 
below. 

C(AC) = 1 The pen is rai s ed (if it was down) and 

is moved to the new location as described 
below. 



The two locations following the calling JMS instruction 
contain, respectively, the new X coordinate and the new Y co- 
ordinate in steps (these values must be less than 4096) . The 
pen is moved from the previous location to the new location 
along the best straight line with the pen up or down depending 
upon the contents of the accumulator when the subroutine is 
called. Control returns to the instruction following the Y co- 
ordinate. 

8.3.3 Examples 

Initialization of Plotter: 

CLA CMA /AC = -1, INITIALIZE ROUTINE AND PEN UP 

JMS I PLOT /JUMP TO PLOTX ROUTINE, PAGE INDEPENDENT 
return /CONTROL RETURNS TO THIS ADDRESS 

PLOT, PLOTX /CONTAINS ADDRESS OF PLOTX ROUTINE 
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Plot with Pen Down: 

CLA 

JMS I PLOT 
X coordinate 
Y coordinate 
rerurn 



/AC = 0, PEN DOWN 

/MUST BE IN RANGE -4096<X<4096 
/-4096<Y<4096 



PLOT, PLOTX 

Plot with Pen Up : 

CLA lAC 
JMS I PLOT 
X coordinate 
Y coordinate 
return 



/AC = 1, PEN UP 

/-4096<X<4096 
/-4096<Y<4096 



PLOT, PLOTX 

8.4 DESCRIPTION 

The routine has two registers which contain the location of 
the last position plotted. When the subroutine is entered, the 
accumulator is tested to determine if initialization is being 
performed; if so the location registers are set to zero, the pen 
raised, and the subroutine exits. If the routine is not being 
initialized, the subroutine compares the current pen position (up 
or down) with the requested one and raises or lowers the pen if 
appropriate. The new X and Y coordinates are retrieved from the 
two locations follov/ing the calling JMS and placed in the location 
registers. The X and Y difference between the current location 
and the desired location are computed and compared. The subroutine 
selects motion commands depending upon the quadrant of the new 
location compared to the old. The possible motions are now parallel 
to either the X-axis (drum motion) or the Y-axis (pen motion) or 
a combined motion. The subroutine determines which of these motions 
to use, and when the new location is reached, it exits. 



1-3 



The X and Y coordinates are specified in numbers of steps. 
Increasing X corresponds to lowering the drum. Increasing Y cor- 
responds to moving the pen left. 

The subroutine is limited by the speed of the plotter. The 
minor subroutine, PLOTWT can be replaced, if necessary, by a 
routine making use of the program interrupt. 

8.5 PROGRAM LISTING 



/COf YdlGHi 1971 iJIGIfAL EQ JI PiiSM f CO^^PO^AFUN 

/DIGITAL 8-12-U 
/PLOT SUBROUTINE 
/CALLING SEQUENCE 

/ C(AC)=-l; INITIALIZE 

/ C{AC)= 0; PLOT WITH PEN DOWN 

/ C{AC)= IJ PLOT WITH PEN UP 

/ JMS PLOTX 

/ X CO-ORDINATE (IN STEPS) (RETURN IF AC=-1) 

/ Y CO-ORDINATE (IN STEPS) 

0200 0000 PL0tX» 

0201 7510 SPA /MOVE THE PEN? 

0202 5220 JMP PLOTA /NO: CONTINUE 

0203 1361 TAD PLOTPN /ADD PEN STATUS 

0204 7112 CLL RTR 

0205 7710 SPA CLA /ANY CHANGE? 

0206 5227 JMP PLOTl /NO: CONTINUE 

0207 7620 SNL CLA 

0210 5214 JMP .+4 /LOWER THE PEN 

0211 3361 DCA PLOTPN /RAISE THE PEN 

0212 6504 PLPU 

0213 5216 JMP .+3 

0214 2361 ISE PLOTPN /LOWER THE PEN 

0215 6524 PLPD 

0216 4370 JMS PLOTWT /WAIT FOR FLAG 

0217 5227 JMP PLOTl /CONTINUE 

0220 7200 PLOTA, CLA 

0221 6504 PLPU /RAISE THE PEN 

0222 3361 DCA PLOTPN 

0223 3362 DCA PLOTNX /0 TO X CO-ORDINATE 

0224 3363 DCA PLOTNY /0 TO Y CO-ORDINATE 

0225 4370 jMS PLOTWT 

0226 5600 JMP I PLOTX 
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/DIGITAL 
/PAGE 2 
/PICK UP 



8*12-U 



ARGUMENTS 



0227 
0230 
0231 
02^2 
0233 
0234 
0235 
0236 
0237 
0240 
0241 
0242 
0243 
0244 
0245 
0246 
0247 
0250 
0251 
0252 
0253 
0254 
0255 
0256 
0257 
0260 
0261 
0262 
0263 
0264 
0265 
0266 
0267 
0270 
0271 
0272 
0273 
0274 



0275 
0276 
0277 
0300 
0301 
0302 
0303 
0304 
0305 
0306 



1362 
7141 
1600 
7420 
7041 
3364 
7004 
3367 
1600 
3362 
2200 
1363 
7141 
1600 
7420 
7041 
3365 
1367 
7004 
3367 
1600 
3363 
2200 
1364 
7141 
1365 
7620 
5275 
1364 
3366 
1365 
3364 
1366 
3365 
7001 
0367 
1342 
5300 



1367 
7110 
1345 
3366 
1766 
3340 
1367 
1350 
3367 
1767 



PLOTl 
CIA 
TAD 
SNL 
ClA 
DCA 
RAL 
DCA 
TAD 
DCA 
IS2 
TAD 
CIA 
TAD 
SNL 
CIA 
DCA 
TAD 
RAL 
DCA 
TAD 
DCA 
ISZ 
TAD 

ClA 
TAD 
SNL 
JMP 
TAD 
DCA 
TAD 
DCA 
TAD 
DCA 
lAC 
AND 
TAD 
jMP 



TAD 
CLL 
I PLOTX 



PLOTDX 

PLOTMV 

I PLOTX 

PLOTNX 

PLOTX 

PLOTNY 

CLL 

I PLOTX 



PLOTDY 
PLOTMV 

PLOTMV 

I PLOTX 

PLOTNY 

PLOTX 

PLOTDX 

CLL 

PLOTDY 

CLA 

PL0T2 

PLOTDX 

plotna 

PLOTDY 
PLOTDX 
PLOTNA 
PLOTDY 

PLOTMV 
PLOTTl 
.+4 



PLOTNX 



/FETCH PREVIOUS X CO"0«DlNATE 



/DIGITAL 8-12-U 
/PAGE 3 



/FORM NX-NPX 
/L=0: NX<NPX 

/ABSOLUTE VALUE OF DIFFERENCE 

/SAVE SIGN BIT 

/SET NEW 

/PREVIOUS X 

/INCREMENT POINTER 

/FETCH PREVIOUS Y CO-ORDINATE 

/FORM NY-NPY 
/<=0: NPY<NY 

/ABSOLUTE VALUE OF DIFFERENCE 

/SAVE SIGN BIT 

/BIT 10(1)= DRUM-DOWN(POSITIVE) 

/BIT 11(1)=PEN-LEFT (POSITIVE) 

/SET NEW 

/PREVIOUS Y 

/INCREMENT POINTER 



/L=0: DELTA Y < DELTA X 
/REVERSE NUMBERS 



/SET MAJOR MOTION 
/INSTRUCTION 



PL0T2, 
CLL RAR 
TAD 
DCA 
TAD 
DCA 
TAD 
TAD 
DCA 
TAD 



TAD PLOTMV 



PL0TT2 
PLOTNA 
I PLOTNA 
PL0T4 
PLOTMV 
PL0TT3 
PLOTMV 
I PLOTMV 



/SET COMBINED MOTION 



!-5 



0307 


3331 


DCA PLOTDB 




0310 


1364 


TAD PLOTDX 




0311 


7110 


CLL RAR 




0312 


3366 


DCa PLOTNa 




0313 


1364 


TaD PLOTDX 




0314 


7040 


CMA 




0315 


3367 


DCA PLOTMV 




0316 


2367 


PL0T3, IS2 


PLOTHV 


0317 


7410 


SKP 




0320 


5600 


JMP I PLOTX 


/ALL DONE 


0321 


1366 


TAD PLOTNA 




0322 


1365 


TAD PLOTDY 




0323 


3366 


DCA PLOTNA 




0324 


1366 


TaD PLOTNA 




0325 


7140 


CMa CLL 




0326 


1364 


TAD PLOTDX 




0327 


7630 


S2L ClA 




0330 


5340 


JMP PL0T4 


/SINGLE MOTION 


0331 


0000 


PLOTDB, 


/COMBINED MOTION 


0332 


1364 


TAD PLOTDX 




0333 


7041 


CIA 




0334 


1366 


TaD PLOTNA 




0335 


3366 


DCA PLOTNA 




0336 


4370 


jMS PLOTWT 




0337 


5316 


JMP PL0T3 




0340 


0000 


PL0T4, 




0341 


5336 


JMP .-3 




0342 


0343 


PLOTTl, .+1 




0343 


6511 


PLPR 


/PEN-RIGHT 


0344 


6521 


PLPL 


/PEN-LEFT 


0345 


0346 


PL0TT2» ,*1 




0346 


6512 


PLDU 


/DRUM-UP 


0347 


6514 


PLDD 


/DRUM-DOWN 


0350 


0351 


PL0TT3, .♦I 




0351 


6513 


PLDU PLPR 


/UP-RIGHT 


0352 


6523 


PLUD PLPL 


/UP-LEFT 


0353 


6515 


PLDD PLPR 


/DOWN-RIGHT 


0354 


4355 


JMS .♦! 


/DOWN-LEFT 


0355 


0000 







0356 


6514 


PLDD 




0357 


6521 


plPl 




0360 


5755 


JMP I .-3 





/DIGITAL 8-12-U 
/PAGE 4 



0361 
0362 
0363 
0364 
0365 
0366 
0367 



0000 
0000 
0000 
0000 
0000 
0000 



PLOTPN, 
PLOTNX, 
PLOTNY, 
PLOTDX, 
PLOTDY, 
PLOTNA, 
PLOTMV, 
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0370 


0000 


PLOTWT, 


0371 


6501 


PLSF 


0372 


5371 


JMP .-1 


0373 


6502 


PLCF 


0374 


5770 


JMP I PLOTWT 



/WAIT FOR DONE FLAG 
/NOT YET 
/CLEAR FLAG 
/EXIT 



PAUSE 



PLOTA 


022 


PLOTDB 


0331 


PLOTDX 


0364 


PLOTDY 


0365 


PLOTMV 


0367 


plotna 


0366 


PLOTNX 


0362 


plotny 


0363 


PLOTPN 


0361 


PLOTTl 


0342 


PL0TT2 


0345 


PL0TT3 


0350 


PLOTWT 


0370 


PLOTX 


0200 


PLOTl 


0227 


PL0T2 


0275 


PL0T3 


0316 


PL0T4 


0340 
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CHAPTER 9 



DECIMAL TO BINARY CONVERSION AND INPUT 
(Single Precision, Signed or Unsigned, 33-ASR) 



9 . 1 ABSTRACT 

This routine accepts a string of up to four decimal digits (single 
precision for the PDP-8) from the Teletype keyboard and converts it to 
the corresponding 2's complement binary number. 

The string can contain as legal characters a sign (+,-, or space) 
and the digits from 0-9. If the first legal character is not a 
sign, the conversion is unsigned . A back arrow ( -«- ) at any point in 
the string erases the current string and allows the operator to reenter 
the correct value. Any character after the first, other than another 
digit or back arrow, causes the conversion to terminate and is found in 
location SISAVE within the subroutine. 

9.2 REQUIREMENTS 

This subroutine requires 74^^ (112^) core locations and runs on 
any standard PDP-8 family computer with a 33-ASR Teletype console. 
Program tape is labelled Single Precision Decimal Input, 

Digital- 8-2 8-U-ASCII 

9 . 3 USAGE 

9.3.1 Loading 

The symbolic tape provided can be assembled with the user's main 
program by PAL III, r4ACRO-8, or PAL-D. The symbolic tape has neither an 
origin setting nor a terminating "$", but does have a PAUSE pseudo- 
instruction at the end. 

9.3.2 Calling Sequence 

The subroutine is called by an effective JMS to location SICONV. 
Return is to the location immediately following the calling JMS with 
the binary number in the accumulator. 
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9.4 ERRORS IN USAGE 

If a sign (+, -, or space) precedes the string of decimal 
digits, the maximum decimal number correctly accepted is 
2047 (2 - 1) . The sign, if any, must appear first. If a sign 

does not precede the string of decimal digits, the maximum decimal 

12 
number correctly accepted is 4095 (2 - 1) . If either of these 

maxima is exceeded, the results are unspecified. 



9.5 RESTRICTIONS 

The status of the AC and link is not preserved. 

This subroutine should not be used when the interrupt is on. 

The magnitude restrictions on numbers are described in 
Section 9.4. 

9.6 DESCRIPTION 

This subroutine converts to the binary equivalent a signed or 
unsigned string of decimal numbers read from the console keyboard 
of the PDP-8. If a minus sign is specified, the results are in 
2's complement negative form. The first character is examined and, 
if it is a sign (+, -, or space), a switch is set to provide the 
correct sign for the conversion. Regardless, a switch is set after 
the first character to terminate conversion if a character other than 
a decimal digit or rubout appears. If a back arrow appears at any 
time, the conversion is reinitialized and the subroutine waits for 
the correct entry. 

The last four bits of the ASCII code for each of the decimal 
digits are identical to the standard 8-4-2-1 BCD code. Thus, the 
BCD digit is extracted from the 8-bit code by the AND instruction 
with a "mask" of 17g. When the first BCD digit comes in, it is 
added to a cleared location (SJHOLD) in memory and stored back in 
that location. When the next legal character comes in, location 
SJHOLD is multiplied by 10, then added to the BCD code of the 
character and returned to location STORE. This sequence holds 
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true for a decimal number of any arbitrary length. 

9.7 EXAMPLE 

Since the PDP-8 can add and shift easily, the multiplication 
by 10 can be accomplished in three instructions. Since a shift left 
is equivalent to a multiplication by 2 , a double shift left is 
equivalent to a multiplication by 4. Assume that the number currently 
in STORE is 5, and the new code just coming in is the number 1 stored 
in HOLD. The program sequence to perform the multiplication and 
storage is as follows: 

Instruction 
Sequence Comments Contents of AC 

CLA 

TAD STORE /Load C (STORE) into AC 000 000 000 101 

CLL RTL /Multiply C (STORE) by 4 0000000 10 100 

TAD STORE /Add STORE giving C (STORE) by 5 000 000 Oil 001 

CLL RAL /Multiply by 2 giving C (STORE) by 10 000 000 110 010 

TAD HOLD /Add in the next number 000 000 110 Oil 

DCA STORE /Store back into STORE and return 

to wait for next character 000 000 000 000 

The number residing in location STORE is 006 Sq or 0051,^. 

If the next number to come in were "9", using the same sequence 
and conditions, the result would be 001 000 000 111, the binary 
equivalent of 519. 

9 . 8 SCALING 

This subroutine assumes an integral decimal number (signed or 
unsigned) and yields an integral binary equivalent (signed or unsigned 
respectively) . 

9 . 9 FORMAT 

9.9.1 Input 

The input string may or may not contain a sign (+, -, or space) . 
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Any character other than a sign, 0-9, or back arrow causes the 
subroutine to terminate, as does a sign in any but the first position. 

9.9.2 Core Data 

The terminating character is found in location SISAVE. 

9.9.3 Output 

Spacing, tabulation, carriage return, etc., are not provided 
for in this subroutine. See Chapter 6 which contains short subroutines 
for those purposes. 
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9.10 FLOW CHART 




NO 



YES 



YES 




FORM 2'S 
COMPLEMENT 



5>^ 



NUMBER IN AC 



C 



I 



EXIT 



D 



( ENTRY J 



INITIALIZE a ZERO 

ASSEMBLY 

LOCATIONS 



ERASE NUMBER 



SET SIGN 

INDICATOR 

TO NEGATIVE 



WAIT FOR 

INPUT FROM 

KEYBOARD 




MULTIPLY PARTIALLY 

ASSEMBLED 

NUMBER BY 10 



I 



ADD INCOMING 
DECIMAL DIGIT 



3 
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cor^pO'^ArioN 



11 PKUGKAiyi l.lbTl]N«a 

/COPY UGH i: 1971 DIGIIAL ^^JIP-ISMr 

/;vlAYNA:^D> .^ASS^CH JSH:TTS 

/SINGLE PRECISION DECIMAL INPUT FROM KEYBOARD 

/CALLING SEQUENCE: JMS SI CONV 

/ACC IGNORED, RETURN WITH BINARY WORD IN ACC 



0200 


0000 SI CONV, 




020 1 


7300 


CLA 


CLL 


0202 


1273 


TAD 


SI SET 1 +1 


0203 


3232 


DCA 


SI CTRL 


0204 


1273 


TAD 


SISETl +1 


0205 


3224 


DCA 


SIXSWl 


0206 


3310 


DCA 


SIHOLD 


0207 


331 1 


DCA 


SINEGl 


0210 


5257 


JMP 


SINPUT 


021 1 


3307 SIPROC, DCA 


SI SAVE 


0212 


1307 


TAD 


SI SAVE 


0213 


1301 


TAD 


SIRBUT 


02 14 


7450 


SNA 




0215 


5201 


JMP 


SI CONV + 1 


0216 


1302 


TAD 


SIM260 


0217 


7510 


SPA 




0220 


5232 


JMP 


SI CTRL 


0221 


1303 


TAD 


SIM271 


0222 


7740 


SMA 


SZA CLA 



/INITIALIZE PROGRAM SWITCHES 



0223 5232 

0224 7300 SIXSWl, 

0225 1231 

0226 3224 

0227 1777 



0230 
023 1 
0232 
0233 
0234 
0235 
0236 

0237 
0240 
0241 

0242 
0243 
0244 



3232 
5246 
7300 
1307 
1304 
7450 
5273 

1305 
7450 
5273 

1306 
7650 
5273 



SICTRL, 



JMP SICTRL 

CLA CLL 

TAD .+4 

DCA .-2 

TAD SINMBR -1 

DCA SICTRL 

JMP SINMBR 

CLA CLL 

TAD SI SAVE 

TAD SIMSPC 

SNA 

JMP SISETl +1 

TAD SI MPLS 

SNA 

JMP SISETl + 1 

TAD SIMMNS 

SNA CLA 

JMP SISETl 



/CLEAR NEGATIVE SWITCH 



/STORE AND THE PROCESS 

/CHARACTER 

/IS IT A "BACK-ARROW" 
/(IE. ERASE) KEY 

/YES, REINITIALIZE 

/IS IT LESS THAN 260 
/CIE. "0") 

/YES. TRANSFER TO SEE WHAT 
/CHAR. IT IS 

/IS IT GREATER THAN 27 1 
/(IE. "9")? 

/YES, TRANSFER TO SEE WHAT 
/CHAR. IT IS 

/NO, FIRST CHARACTER WAS A 

/DECIMAL DIGIT 

/CLOSE SWITCH TO GO TO 

/"SINMBR" NEXT 

/SET SWITCH TO SENSE 

/TERMINATING CHAR. 



/CONTINUE CHECKING 



/IS IT A SPACE? 

/YES, SET SWITCH TO SENSE 

/TERMINATING CHAR. 

/IS IT A "PLUS"? 
/YES, SET SW TO SENSE 
/TERMINATING CHAR. 

/IS IT A MINUS? 

/YES, SET NEGATIVE XSWITCH 

/AND TERM. SWITCH 
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0245 


5264 




JMP 


SI END 


0246 


1310 


SINMBR, 


TAD 


SIHOLD 


0247 


7106 




CLL 


RTL 








TAD 


SIHOLD 


0251 


100A 




RAL 




0252 


3310 




DCA 


SIHOLD 


0253 


1307 




TAD 


SI SAVE 


02 54 


0300 




AND 


SI MASK 


0255 


1310 




TAD 


SIHOLD 


0256 


3310 




DCA 


SIHOLD 


0257 


6031 


SINPUT* 


KSF 


/INPUT 


0260 


5257 




JMP 


.- 1 


026 1 


6036 




KRB 




0262 


6046 




TLS 




0263 


521 1 




JMP 


SIPROC 






/TERMINATING ROUTINE 


0264 


7300 


SI END, 


CLA 


CLL 


02 6 5 


131 1 




TAD 


SINEGl 


0266 


7010 




RAR 




0267 


1310 




TAD 


SIHOLD 


0270 


7 430 




SZL 




027 1 


7041 




CM A 


I AC 


0272 


5600 




JMP 


I SI CON V 


0273 


231 1 


SISETl^ 


ISZ 


SINEGl 


0274 


7300 




CLA 


CLL 


0275 


1777 




TAD 


SINMBR -1 


0276 


3232 




DCA 


SI CTRL 


0277 


5257 




JMP 


SIN PUT 






/CONSTANTS AND VARIABLES 


0300 


0017 


SIMASK, 


17 




0301 


7441 


SIRBUT, 


-337 


0302 


0057 


SIM260, 


57 




0303 


7767 


SIM27 1, 


- 1 1 




0304 


7540 


SIMSPC, 


-240 


0305 


7765 


SIMPLS, 


- 13 




0306 


7776 


SIMMNS* 


-2 




0307 


0000 


SI SAVE, 







0310 


0000 


SIHOLD, 







0311 


0000 


SINEGl, 
PAUSE 








/NO, IT WAS A TERMINATING 

/CHARACTER 

/MULTIPLY CURRENT ASSEM- 

/BLED NUMBER BY 10 



/PICK UP CURRENT DIGIT 
/MASK OFF THE HIGH ORDER 
/BIT 

/ADD TO ASSEMBLED NUMBER 
/STORE BACK IN SIHOLD 
ROUTINE 



/PUT NEGATIVE SWITCH INTO 
/LINK 

/IS THE LINK "1"? 

/YES, NUMBER NEGATIVE. 

/COMPLEMENT 

/RETURN. 

/SET NEGATIVE SWITCH 

/CLOSE SW TO TRANSFER TO 

/TERM. 



/CODE FOR ERASE 

/NUMBER USED TO GENERATE 

/CODE "260" 

/NUMBER USED TO GENERATE 

/CODE "271" 

/NUMBER USED TO GENERATE 
/CODE "253" (+) 
/NUMBER USED TO GENERATE 
/CODE "255" (-) 
/STORAGE LOCATIONS 
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Formerly 
Digital-8-29-U-Sym 



DECIMAL TO BINARY CONVERSION 
AND INPUT 

(Double Precision, Signed or Unsigned, 33-ASR) 



10 . 1 ABSTRACT 

This routine accepts and echoes a string of up to eight decimal 
digits (double-precision for the PDP-8) from the Teletype keyboard 
and converts it to the corresponding two's complement binary number. 

The string may contain as legal characters a sign (+, -, or space) 
and the digits 0-9. If the first legal character is not a sign, the 
conversion is unsigned . A "back-arrow" ( ^ ) at any point in the 
string erases the current string and allows the operator to re-enter 
the value. Termination of input is accomplished by typing one illegal 
character which will then be found in location DIDSAV within the sub- 
routine. 

10.2 REQUIREMENTS 

This subroutine requires 110-,q (156 g) core locations and runs on 
any standard PDP-8 family computer with a 33-ASR Teletype console. The 
paper tape is labelled Double Precision Decimal to Binary Conversion, 

Digital- 8-29-U- ASCII 
10 . 3 USAGE 

10.3.1 Loading 

The symbolic tape provided can be assembled with the user's 
main program with PAL III, MACRO- 8, or PAL-D. There is neither 
origin setting nor terminating "$" on the symbolic tape, but a 
PAUSE pseudo-instruction is the last line on the tape. 
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10.3.2 Calling Sequence 

The subroutine is called by an effective JMS to location DICONV. 
The location immediately following the JMS instruction contains the 
address of the location where the high-order portion of the number is 
to be stored. (It is assumed that the low-order portion of the number 
is in the location immediately following the high-order portion.) 
Return is to the second location following the calling JMS with the AC 
clear. For example: 

JMS DICONV 
ADDR 
HLT 
ADDR, 

10.4 ERRORS IN USAGE 

If the string of decimal digits is preceded by a sign (+, -, or 
space) , the maximum decimal number that is correctly accepted is 
16777215 (2^^ -1) . 

If neither of these maxima is exceeded, the results are 
unspecified. 

10.5 RESTRICTIONS 

The status of AC and link is not preserved. 

This subroutine should not be used with the interrupt on. 

The magnitude restrictions on numbers is described in section 10.4 

10.6 DESCRIPTION 

The discussion, example, and scaling information about the 
conversion are given in Chapter 9. The only difference is that the 
multiplications by "4" and "2" are performed by the arithmetic shifts 
as described in the section on Arithmetic Shift Subroutines in the 
PDP-8 Math Routines write up, DEC-0 8-FFAD-D. 

Information on techniques used in this program can also be 
found in Chapter 9 of this document. 
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10.7 FORMAT 

10.7.1 Input Data 

The input string may or may not contain a sign (+, -, or space) . 
Any character other than a sign, - 9 , or rubout causes the subroutine 
to terminate as does a sign in any but the first position. 

10.7.2 Core Data 

The high-order portion of the binary equivalent of the number 
is found in the location specified by the address following the JMS . 
The low-order portion is found in the next successive location. This 
is the format compatible with the double-precision, fixed point 
arithmetic subroutines. The terminating character is found in location 
DIDSAV. 

10.7.3 Output Data 

Spacing tabulation, carriage return, etc. , are not provided 
for in this subroutine. See Chapter 6 which contains short sub- 
routines for such purposes. 

This subroutine is input limited at a maximum of 10 cps . 
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10.8 FLOW CHART 



C 



FIRST CHARACTER 

IS A TERMINATING 

CHARACTER 



COMPLEMENT THE 

DOUBLE -PRECISION 

NUMBER 




THIS IS A 

TERMINATING 

CHARACTER 



J 



INITIALIZE PROGRAM 

SWITCHES AND ZERO 

LOCATIONS FOR HOLDING 

PARTIALLY-ASSEMBLED 

DOUBLE-PRECISION NO. 



PICK UP ADDRESS FROM 

CALLING SEQUENCE FOR 

STORING DOUBLE - 

PRECISION NUMBER 



ERROR MADE 

OPERATOR WISHES TO 

ERASE NUMBER 



STORE RESULT IN 
ADDRESS SPECIFIED BY 
THE CALLING SEQUENCE 



c 



WAIT FOR CHARACTER 

FROM KEYBOARD 

OR READER 



SAVE INCOMING 

CHARACTER IN 

" D I DSAU " 



YES 




PICK UP INCOMING 
CHARACTER 




YES 




FIRST CHARACTER 
WAS A DECIMAL DIGIT 
SET SWITCH 'I 



SET 
CONTROL 
SWITCH 



PICK UP PARTIALLY- 
ASSEMBLED, DOUBLE - 
PRECISION NUMBER 



MULTIPLY BY FOUR 

(IE DOUBLE SHIFT 

LEFT TWICE) 



ADD THE PARTIALLY - 

ASSEMBLED. DOUBLE - 

PRECISION NUMBER 



MULTIPLY BY TWO 

(!E DOUBLE SHIFT 

LEFT ONCE) 



SET NEGATIVE SWITCH 



YES 



ADD THE INCOMING 
DECIMAL DIGIT 
TO THE RESULT 



SET 
CONTROL 
SWITCH 



STORE SUM AS THE NEW 
PARTIALLY-ASSEMBLED, 
DOUBLE-PRECISION NO. 
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10.9 PROGRAM LISTING 

/COPYRIGHT 197 1 DIGITAL £3 JI P^^ENi F COifOR^ilO^ 
/;iAY^JAf^D> ^lASSACHJSEirS 

/DOUBLE PRECISION DECIMAL-TO-BINARY CONVERSION AND INPUT 

/CALLING SEQUENCE: /AC IGNORED 

/ JMS DICONV /SUBROUTINE CALLED 

/ ADDRES /ADRESS TO STORE HIGH-ORDER \wORD 

/ /LOW -ORDER WORD IN ADDRESS+1 
0200 0000 DICONV^ 
020 1 7300 CLA CLL /INITIALIZE PROGRATn SWITCHES 

0202 1324 TAD DISETl+1 

0203 3235 DCA DICTRL 

0204 1324 TAD DISETl+1 

0205 3227 DCA DIXSWl 

0206 1600 TAD I DICONV /PICK UP ADDRESS TO STORE 

/HIGH-ORDER WORD 

0207 3351 DCA DIGET 

0210 3352 DCA DIHIHD /CLEAR LOCATIONS USED TO HOLD 

/INCOMING 

0211 3353 DCA DILOHD /NUMBER 

0212 3347 DCA DINEGl /CLEAR NEGATIVE SWITCH 

0213 5275 JMP DUN 

0214 3350 DIPROC^ DCA DIDSAV /STORE CHARACTER 

0215 1350 TAD DIDSAV 

0216 1341 TAD DIRBUT 

0217 7450 SNA /IS IT A "BACK- ARRO W" C I E. ERASE) KEY? 

0220 5201 JMP DICONV+1 /YES^ REINITIALIZE 

0221 1342 TAD DIM260 

0222 7510 SPA /IS IT LESS THAN 260 (IE. "0")? 

0223 5235 JMP DICTRL /YES^ TRANSFER TO SEE WHAT 



/ uni-irii-io i rL,i 



IS 



0224 1343 TAD DIM271 

0225 7740 SMA SZA CLA /IS IT GREATER THAN 271 (IE. "9")? 

0226 5235 JMP DICTRL /YES^ TRANSFER TO SEE WHAT 

/CHARACTER IT IS 

0227 7300 DIXSWl^ CLA CLL /N0:» FIRST CHARACTER WAS A DECIMAL DIGIT 

0230 1234 TAD .+4 /CLOSE SWITCH TO GO TO "DINMBR" NEXT 

0231 3227 DCA .-2 

0232 1250 TAD DINMBR- 1 /SET SWITCH TO SENSE TERMINATING 

/CHARACTER • 

0233 3235 DCA DICTRL 

0234 525 1 JMP DINMBR 

0235 7200 DICTRL^ CLA /CONTINUE CHECKING TO DETERMINE CHAR. 

0236 1350 TAD DIDSAV 

0237 1344 TAD DIMSPC 

0240 7450 SNA /IS IT A "SPACE"? 

241 5 324 JMP DISETi+i /YES^ SET SWITCH TO SENSE TERM. 

/CHARACTER 

0242 1345 TAD DIMPLS 

0243 7450 SNA /IS IT A "PLUS"? 

0244 5324 JMP DISETl+1 /YES^ SET SWITCH TO SENSE TERM. 

/CHARACTER 
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245 1346 
246 



•7 /^, c i7i 



0247 5323 



0250 
0251 

0252 
0253 
0254 
0255 
0256 
0257 
0260 
0261 
0262 
0263 
0264 
0265 
0266 
0267 
0270 
0271 
0272 
0273 
0274 

0275 
0276 
0277 
0300 
0301 

0302 
0303 
0304 
0305 
0306 
0307 
0310 
031 1 
0312 
0313 

0314 
0315 
0316 
0317 

0320 
0321 
0322 

0323 



5302 
1353 

3354 
1352 
3355 
4330 
4330 
1353 
1354 
3353 
7004 
1352 
1355 
3352 
4330 
1350 
0340 
1353 
3353 
7430 
2352 

6031 
5275 
6036 
6046 
5214 

7200 
1347 
71 10 
1352 
7430 
7040 
3751 
1353 
7430 
7141 

7430 
2751 
7000 
2351 

3751 
2200 
5 60 



DINNER^ 



TAD 
SNA 
JMP 

JMP 
TAD 



DIMMNS 
CLA /IS 
DISETl 

DIEND 
DILOHD 



IT 



A "MINUS"' 

/YES^SET 
/SWITCH 



NEGATIVE SWITCH AND TERM 



DCA DIXTMI 
TAD DIHIHD 
DCA DIXTM2 
JMS DIDSPL 
JMS DIDSPL 
TAD DILOHD 
TAD DIXTMI 
DCA DILOHD 
RAL 

TAD DIHIHD 
TAD DIXTM2 
DCA DIHIHD 
JMS DIDSPL 
TAD DIDSAV 
AND DIXMSK 
TAD DILOHD 
DCA DILOHD 
SZL /DID IT 
ISZ DIHIHD 

/INPUT ROUTINE 

DIIN^ KSF 

JMP . - 1 

KRB 

TLS 

JMP DIPROC 

/TERMINATING ROUTINE 

DIEND^ CLA 
TAD 
CLL 
TAD 
SZL 
CMA 
DCA 
TAD 
SZL 
CLL 



/NO^ IT WAS A TERMINATING CHARACTER 
/STORE ASSEMBLED NUMBER 
/TEMPORARILY 



/MULTIPLY CURRENT BY "1 



/PICK UP CURRENT DIGIT 

/MASK OFF HIGH-ORDER BITS 

/ADD REMAINDER TO CURRENT NUMBER 



OVERFLOW? 
/YES^ CORRECT 



HIGH-ORDER WORD 



ISET 



SZL 
ISZ 

NOP 
ISZ 

DCA 
ISZ 

JMP 
ISZ 



DINEGl /PICK UP NEGATIVE NUMBER 
RAR /PUT IT INTO LINK. ("1" IF NEGATIVE) 
DIHIHD /PICK UP HIGH ORDER PORTION 

/IS LINK "1"? 

/YES:. NUMBER NEGATIVE. COMPLEMENT IT 
I DIGET /STORE IT 

DILOHD /PICK UP LOW-ORDER PORTION 

/IS LINK "1"? 
CMA lAC /YES:. TWO'S COMP.IT. IF OVERFLOW^ 

/LINK=1 

/IS LINK "1"? 
I DIGET /INDEX HIGH-ORDER PRTION 

/TAKES CARE WHEN HIGH-ORDER PORTION =0 
DIGET /INDEX POINTER FOR LOW-ORDER 

/PORTION 

/STORE LOW-ORDER POTION OF NUMBER 
/INDEX FOR CORRECT RETURN 
/RETURN 



I DIGET 
DICONV 

I DICONV 

r^ T M u' r: i 



/SET NEGATIVE SWITCH 



10-6 



0324 


7300 




CLA 


CLL /CLOSE SWITCH TO TRANSFER TO TERMINATION 


0325 


1250 




TAD 


DINMBR- 1 




0326 


3235 




DCA 


DICTRL 




0327 


5275 




JMP 


DUN 


/JUMP TO WAIT FOR NEXT CHARACTER 






/DOUBLE 


PRECISION LEFT SHIFT CX2) 


330 


0000 


DIDSPL' 









0331 


1353 




TAD 


DILOHD 




0332 


7104 




CLL 


RAL 




0333 


3353 




DCA 


DILOHD 




0334 


1352 




TAD 


DIHIHD 




0335 


7004 




RAL 






0336 


3352 




DCA 


DIHIHD 




0337 


5730 




JMP 


I DIDSPL 








/CONSTANTS AND VARIABLES 


0340 


0017 


DIXMSK^ 


17 


/MASK FOR LAST FOUR BITS 


0341 


7441 


DIRBUT^ 


-337 /CODE FOR ERASE 


0342 


0057 


DIM260:* 


57 


/NUMBER 


USED TO GENERATE CODE "260" 


0343 


7767 


DIM271^ 


-11 


/NUMBER 


USED TO GENERATE CODE "271" 


0344 


7540 


DIMSPC:» 


-240 /CODE FOR SPACE 


0345 


7765 


DIMPLS^ 


-13 


/NUMBER 


USED TO GENERATE CODE "253" C+) 


0346 


7776 


DLMMNS^ 


-2 


/NUMBER 


USED TO GENERATE CODE "255" C-) 


0347 


0000 


DINEGl^ 





/STORAGE LOCATIONS 


0350 


0000 


DIDSAV^ 









0351 


0000 


DIGET^ 









0352 


0000 


DIHIHD> 









0353 


0000 


DILOHD> 









0354 


0000 


DIXTMl^ 









0355 


0000 


DIXTM2^ 
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Formerly 

Digital- S-lO-U-Sym 

CHAPTER 11 
BCD TO BINARY CONVERSION, SINGLE PRECISION 
(Binary Coded Decimal to Binary Conversion Subroutine) 



11.1 ABSTRACT 

coded-decimal numbers to their equivalent binary value. Conversion 
is accomplished by "radix deflation". 

11.2 REQUIREMENTS 

This subroutine requires 23, ^ ^27g) memory locations and runs 
on any standard PDP-8 family computer with a 33-ASR Teletype console 
The source paper tape is labeled BCD to Binary Conversion, 

Digital-8-lO-U-ASCII . 

11.3 USAGE 

11.3.1 Loading 

Load the subroutine with the Binary or RIM Loader, as described 
in either Introduction to Programming or Programming Languages . 

11.3.2 Calling Sequence 

Call with the number to be converted in the AC. Return will be 
to the location following the calling JMS with the result in the AC. 

11.4 DESCRIPTION 

The method used is that of "radix deflation". Upon entry, the 
BCD number may be considered to be in the following form: 

(a) D^ 16^ + D 16 + Dq 

What is desired is the number in the form: 

(b) D2 10^ + D^ 10 + Dq 
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The PDP-8 can shift (rotate) and add. A right shift is equivalent to 
a division by a power of two. An appropriate series of shifts, 
additions, and subtractions is used to convert the number from the 
form of (a) to that of (b) . 

11.5 EXAMPLE 

Consider the BCD number 

0101 0001 1001 

representing the decimal number 519. 

First the whole number is stored and then brought back into the 
AC. Next, the four most significant bits are masked out. At this 
point, the accumulator contains 16xl6xA or 

0101 0000 0000 

A shift to the right of one bit yields 

0010 1000 0000 

This number is stored and then brought back to the AC, shifted right 
two bits, and the stored value added as follows: 

0000 1010 0000 

0010 1000 0000 

0011 0010 0000 



Now the original number is added to this result 

0011 0010 0000 
0101 0001 1001 

1000 0011 1001 



and the most significant eight bits masked out as 

1000 0011 0000 
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This is stored, brought back and shifted right once, and the stored 
value added. 



0100 0001 1000 
1000 0011 0000 

1100 0100 1000 



Next the result of this addition is shifted right two places dividing 
the number by four as follows : 

0011 0001 0010 

negated and the original number added 

1100 1110 1110 
0101 0001 1001 

0010 0000 0111 

This result represents in binary 512 plus 4 plus 2 plus 1 or 519, 
the original number. 

11.6 SCALING 

This subroutine assumes an integral BCD number and yields an 
integral binary equivalent. 

11.7 PROGRAM LISTING 

A listing of the subroutine with BCDBIN located at 0200 is 
given below. To simplify mnemonics D^, D, and D^ have been replaced 
respectively with A, B, and C. 
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/BINARY-CODED-DECIMAL TO BINARY COhiVERSTON SUBROUTINE 
*263 



0263 


0000 


BOBBIN^ 







0264 


3314 




DCA 


TEMPH 


0265 


1314 




TAD 


TEMPH 


0266 


031 1 




AND 


LDIGIT 


0267 


71 12 




CLL 


RTR 


02 70 


3313 




DCA 


COUNT 


027 1 


1313 




TAD 


COUNT 


0272 


7010 




RAR 




0273 


1315 




TAD 


COUNT 


0274 


7041 




CMA 


I AC 


0275 


1314 




TAD 


TEMPH 


0276 


3314 




DCA 


TEMPH 


0277 


1314 




TAD 


TEMPH 


03-1/ 


!/'; i ] ;- 




AND 


MDIGIT 


0301 


7112 




CLL 


RTR 


0302 


3313 




DCA 


COUNT 


0303 


13 1 : 




TAD 


COUNT 


0304 


7010 




RAR 




030 5 


i:-! 1 .-. 




TAD 


COUNT 


0306 


7041 




CMA 


I AC 


0307 


1314 




TAD 


T EMPH 


03 1 '/' 


5 6 63 




JMP 


I BCDBIN 


031 I 


7400 


LDIGIT:* 


7400 


0312 


7760 


MDIGIT^ 


7760 


0313 


0000 


COUNTS 







0314 


0000 


TEMPH:. 








/STORE INPUT 



/160 H + 16 M + L 



/60 H + 6 M 



/EXIT 



11.8 REFERENCES 

11.8.1 DECUS Programs 

See DECUSOPE January 1965, article entitled "Accelerated Radix 
Deflation on the PDP-7 and PDP-8". 

11.8.2 ACKNOWLE DGMENTS 

Mr. Donald V. Weaver, Consultant, of New York City, who first 
described the algorithm used by this subroutine in reference 11.8.1 
has granted his kind permission to include this subroutine in the 
PDP-8 library so that a detailed description may be available. 
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CHAPTER 12 
BCD TO BINARY CONVERSION, DOUBLE PRECISION 



12.1 ABSTRACT 

This subroutine converts a 6-digit BCD number to its equivalent 
binary value in two computer words . 

12.2 REQUIREMENTS 

This subroutine requires 89, p. (131„) memory locations and runs 
on any standard PDP-8 with a 33-ASR Teletype console. The source tape 
is labeled Double Precision BCD to Binary Conversion, 

Digital-8-ll-U-ASCII 

12.3 USAGE 

12.3.1 Loading 

The subroutine is loaded with the Binary Loader. The symbolic 
code is either assembled with the user program or separately with the 
proper origin setting. 

12.3.2 Calling Sequence 

This subroutine is called with an effective JMS DOUBLE followed 
by the address of the high-order word of the double-precision BCD 
number. Control is returned to the following location with the high- 
order part of the result in C(AC) and with the low-order part of the 
result in C(LOW) . 

12.4 DESCRIPTION 

Upon entry, the BCD number is in the form: 

2 2 

(16 D, + I6D2 + D^) ; C16 D, + 16D^ + Dg) 

4 
(each digit is 4 bits, 2 = 16) 
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using the single precision BCD to binary subroutine, this is 
reduced to: 

(lO^D^ + IOD2 + D3);(10^D^ + lOD^ + D^) 

The high order part of the BCD word is effectively multiplied 
by 1000 (=8(128 - 3)) and the low-order part is added, giving 

lO^D^ + 10'^D2 + lO^D^ + lO^D^ + lOD^ + D . 

See Chapter 11. 



12 . 5 EXAMPLES 



GO, 


JMS I X 

HIGH 

HLT 




X, 


DOUBLE 




HIGH, 


1001 1001 


1001 


LOW, 


1001 1001 


1001 



999,999 



If this program were started at GO, the C(AC) at the halt would 
be 0364g and C (LOW) would be 1077g, i.e., 03641077g = 999,999^q. 

12.6 PROGRAM LISTING 

/COPYRIGHT 1971 DIGITAL EJJIPMSNf CO'^POKAriON 

/DIGITAL 8-11-U-SYM 

/DOUBLE PRECISION BCD TO BINARY CONVERSION 

/CALLING SEQUENCE: 

/ JMS DOUBLE 

/ ADDRESS OF HIGH ORDER ARGUMENT 

/ RETURN: C(AC)=HIGH ORDER PART 

/ CCLOW) = LOW ORDER PART 

/ALSO CONTAINS SINGLE PRECISION BCD TO BINARY 

/CALLING SEQUENCE: 

/ CCAC) = 3 BCD CHARACTERS 

/ JMS BCDBIN 

/ RETURN: ANSWER IN CCAC) 
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0200 
020 1 
0202 
0203 
0204 
0205 
0206 

020 7 
0210 

(Tl O 1 1 
iC C 1 1 

0212 

0213 

0214 
ao 1 Q 

021 6 
0217 
0220 
0221 
0222 
0223 
0224 
0225 
0226 
0227 
0230 
0231 
0232 
0233 
0234 
0235 
0236 
0237 
0240 
0241 
242 
0243 
0244 
0245 
0246 
0247 
0250 
0251 
0252 
0253 
0254 
0255 
0256 
0257 
0260 
0261 
0262 
02 6 3 
0264 
02 6 5 
0266 
0267 
0270 



DOUBLE. 



7300 
1600 
3271 
2200 
1671 
4275 
3272 
2271 

I U f I 

4275 

3271 

1272 

7 112 

7012 

7010 

3275 

1275 

0327 

3274 

1275 

7010 

0325 

32 7 3 

1272 

7104 

1272 

7 141 

1273 

3273 

7420 

7 40 

1274 

3274 

1274 

7106 

7004 

0326 

32 7 4 

1273 

7106 

7004 

3273 

1273 

7004 

0324 

1274 

3274 

1273 

0326 

7100 

127 1 

3273 

1274 

7430 

7001 

5600 



CLA 

TAD 

DCA 

I SZ 

TAD 

JMS 

DCA 

I SZ 
T An 

i n L_/ 

JMS 
DCA 
TAD 
CLL 
RTR 
RAR 
DCA 
TAD 
AND 
DCA 
TAD 
RAR 
AND 
DCA 
TAD 
CLL 
TAD 
CIA 
TAD 
DCA 
SNL 
CM A 
TAD 
DCA 
TAD 
CLL 
RAL 
AND 
DCA 
TAD 
CLL 
RAL 
DCA 
TAD 
RAL 
AND 
TAD 
DCA 
TAD 
AND 
CLL 
TAD 
DCA 
TAD 
SZL 
I AC 
JMP 



CLL 

I DOUBLE 

LOWl 

DOUBLE 

I LOWl 

BCDBIN 

HIGHl 

LOWl 
T I n*.i 1 

i L- »^ VV i 

BCDBIN 
LOWl 
HIGH 1 

PTP 



BCDBIN 
BCDBIN 
K 177 
HIGH 
BCDBIN 

K7600 

LOW 

HIGHl 

RAL 

HI GHl 

CLL 

LOW 

LOW 



HIGH 
HIGH 
HIGH 
RTL 

K7771 
HIGH 
LOW 
RTL 

LOW 
LOW 

K7 

HIGH 
HIGH 
LOW 
K777£ 

L W 1 

LOW 

HIGH 



I DOUBLE 



/FETCH ADDRESS 

/STORE 

/INCREMENT RETURN 
/FETCH HIGH ORDER 
/CONVERT IT 

/STORE 

/INCREMENT POINTER 
/ p r T Q u LOW ORDER 
/CONVERT IT 

/STORE IT 



/MULTIPLY HIGH ORDER 
/PART BY 128 



/MULTIPLY HIGH ORDER 
/BY THREE 

/FORM 128*HI GH-3*HI GH 



/125*HI GH 

/NOW MULTIPLY BY 8 



/MASK 9 BITS 



/3 BITS 



/9 BITS 

/ADD LOW ORDER PART 
/STORE LOW ORDER PART 



/CARRY 
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027 1 


0000 


LOWl^ 







0272 


0000 


HIGHl, 







02 7 3 


0000 


LOW, 







0274 


0000 


HIGH, 











/SINGLE 


PREC 


;isiON co; 


02 7 5 


0000 


BCDBIN, 







0276 


3274 




DCA 


HI GH 


0277 


1274 




TAD 


HIGH 


0300 


0330 




AND 


K7400 


0301 


7112 




CLL 


RTR 


0302 


3273 




DCA 


LOW 


0303 


1273 




TAD 


LOW 


0304 


7010 




RAR 




0305 


1273 




TAD 


LOW 


0306 


7041 




CIA 




0307 


1274 




TAD 


HIGH 


0310 


3274 




DCA 


HIGH 


031 1 


1274 




TAD 


HIGH 


0312 


0323 




AND 


K 7 7 6 


0313 


71 12 




CLL 


RTR 


0314 


3273 




DCA 


LOW 


0315 


1273 




TAD 


LOW 


0316 


7010 




RAR 




0317 


1273 




TAD 


LOW 


0320 


7041 




CIA 




032 1 


1274 




TAD 


HIGH 


0322 


5675 




JMP 


I BCDBIN 


0323 


7760 


K7760, 


7760 


0324 


0007 


K7, 


7 




0325 


7600 


K7600, 


7600 


0326 


7770 


K7770, 


7770 


0327 


0177 


K177* 


177 




0330 


7400 


K7400, 


7400 



/LEFT DIGIT 
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CHAPTER 13 
UNSIGNED DECIMAL INTEGER PRINT 



13.1 ABSTRACT 

This subroutine permits the printing of the contents of a computer 
word as a 4-digit, positive, decimal integer. 

13 . 2 REQUIREMENTS 

This subroutine requires 38, ^j ^^^q^ core locations and runs on 
any standard PDP-8 family computer with a 33-ASR Teletype console. The 
paper tape provided is labeled Unsigned Decimal Print Subroutine, 

Digital- 8-22-ASCII 

13.3 USAGE 

13.3.1 Loading 

The subroutine can be placed in core by use of the Binary Loader. 
See Introduction to Programming or Programming Languages for full 
details. The symbolic tape provided is either assembled with the 
user program or separately with the proper origin setting. 

13.3.2 Calling Sequence 

The subroutine is called by the usual JMS instruction with the 
number to be printed in the AC. Return to the location following that 
of the calling JMS. 

13.4 DESCRIPTION 

This is a basic subroutine used to obtain decimal output corres- 

^Kjn'ji.^i.LKj UVJ kjj.xi.CLS. Y WKJJ-KJLO ±.11 luciin^J- _y * xiLKZ j^j. i^Cj J. dill i^^Jc: J- CI w::^ o j-ii «. o »-j. cij.'wj j.* <- 

forward manner. First the binary equivalent of 1000 is subtracted 
from the original number until a negative result is obtained. A count 
is kept of the number of subtractions necessary to accomplish this, 
thus yielding the most significant decimal digit. This process is 
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repeated, using the proper power of ten, to give the three remaining 
decimal digits. 

13.5 METHOD 

This method of binary to binary-coded-decimal conversion is 
compact and easily understood, if not sophisticated. The latter con- 
sideration is of little consequence, since the subroutine is output 
limited. 

13.6 OUTPUT DATA FORMAT 

Output is in the form of four consecutive decimal digits. No 
sign is printed. Spacing, tabulation, carriage return, etc. are not 
provided in this subroutine. 

13.7 PROGRAM LISTING 

/COPY:<lGHr 1971 DIGITAL £2 JI PM^^sjx COr^POKA f I OnJ 

/MArNARD, ^^ASSACHJSbfrS 

/DIGITAL 8-22-U 

/UiMSIGNED DECIMAL PRINT 

/CALL WITH NUMBER TO BE TYPED IN CCAO 

/RETURN TO LOCATION FOLLOWING THE JMS 

/SAVE INPUT 
/CLEAR 

/SET COUNTER TO FOUR' 
/SET TABLE POINTER 
/SAVE 

/SUBTRACT POWER OF TEN 

/DEVELOP BCD DIGIT 

/LOOP 

/HAVE BCD DIGIT 

/GET DI GIT 

/MAKE IT ASCI I 

/OR TAD DIGIT 

/ JMS TDIGITCSEE 8- 19-U) 

/TYPE DIGIT 



0200 


0000 DECPRT, 




020 1 


3243 


DCA 


VALUE 


0202 


3244 


DCA 


DIGI T 


0203 


1235 


TAD 


CNTRZA 


0204 


3245 


DCA 


CNTRZB 


0205 


1234 


TAD 


ADDRZA 


0206 


3213 


DCA 


ARROW 


0207 


7410 


SKP 




0210 


3243 


DCA 


VALUE 


021 1 


7 100 


CLL 




02 12 


1243 


TAD 


VALUE 


0213 


1236 ARRO 


W. TAD 


TENPWR 


0214 


7430 


SZL 




0215 


2244 


ISZ 


DIGIT 


0216 


7430 


SZL 




0217 


5210 


JMP 


ARROW-3 


0220 


7200 


CLA 




0221 


1244 


TAD 


DIGIT 


0222 


1242 


TAD 


K260 


0223 


6041 


TSF 




0224 


5223 


JMP 


.- 1 


0225 


6046 


TLS 




022 6 


7200 


CLA 
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0227 


3244 




DCA DIGIT 


0230 


2213 




ISZ ARROW 


0231 


2245 




ISZ CNTRZB 


0232 


5212 




JMP ARROW- 1 


0233 


5600 




TM D T ViVrC DDT 


0234 


1236 


ADDRZA, 


TAD TEiMPWR 


023 5 


7774 


CNTRZA, 


-4 


0236 


6030 


TENPWR. 


- 1 750 


0237 


7634 




-0144 


0240 


7766 




-0012 


0241 


7777 




-0001 


02 42 


0260 


K260, 


260 


0243 


0000 


VALUE, 





0244 


0000 


DIGIT, 





0245 


0000 


CNTRZB, 






/CLEAR 

/UPDATE POINTER 
/DONE ALL FOUR? 
/NO: CONTINUE 
/YES: EXIT 



/ONE THOUSAND 
/ONE HUNDRED 
/TEN 
/ONE 
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Formerly 
Digital-8-23-U-Syin 

CHAPTER 14 

SIGNED DECIMAL INTEGER PRINT 
SUBROUTINE, SINGLE PRECISION 

14.1 ABSTRACT 

This subroutine permits printing the contents of a computer word 

is a "1", the remaining bits represent a negative integer in two's 
complement form; if bit equals "0", the remaining bits represent 
a positive integer. If the number is negative, a minus sign is 
printed; if positive, a space. 

14.2 REQUIREMENTS 

This subroutine requires 51,^ ^^^r^ core locations and runs on 
any standard PDP-8 family computer with a 33-ASR Teletype console. 
The program is provided on a source tape labeled Signed Decimal Print, 

Single Precision, 

Digital- 8-23-U-ASCII 

14.3 USAGE 

14.3.1 Loading 

The symbolic tape provided is compatible with the PAL III, MACRO- 8, 
or PAL-D assemblers. It can be assembled with the user's program or 
separately with the proper origin setting. Neither origin setting 
nor "$" terminating character exists on the symbolic tape provided. 

14.2.1 Calling Sequence 

The subroutine is called by an effective "JMS SSPRNT" with the 
number to be printed in the AC. The return is to the location follow- 
ing that of the calling JMS. The contents of neither the AC nor the 
link are preserved, and return is with both active registers clear. 

14.4 DESCRIPTION 

This is a basic subroutine to obtain signed decimal output 

(integer format) corresponding to binary words in memory stored in 

two's complement form. First, the number is sensed to determine if 

it is positive or negative. If positive, a space is printed. If 

14-1 



negative, a minus sign is printed and the number complemented to form 
the absolute value in two's complement. Then, the same algorithm is 
followed as in the unsigned printout described in Chapter 13. 

14.5 OUTPUT DATA 

Output is in the form of four consecutive decimal digits preceded 
by either a space or minus sign. Spacing, tabulation, carriage 
return, etc. are not provided in this subroutine. See Chapter 6, 
which contains details on subroutines for such purposes. This sub- 
routine is output limited at 10 cps by the 33-ASR. 



14.6 FLOW CHART 



r ENTRY ^ 



CLEAR LINK 



^.^THE NUMBER \^ 


YES 






V. NEGATIVE ^^ 




^ 


■ 


^\ 


NO 


SET LINK TO "l." 

FORM 

ABSOLUTE VALUE 








1 


r 








STORE NUMBER AWAY 




^ 


' 




INITIALIZE COUNTERS. 
POINTERS AND DIGIT 
STORAGE REGISTER 





LOAD CODE 

FOR "space" 

INTO AC 



INDEX DIGIT 
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yes 



TYPE OUT CHARACTER 



PICK UP 

CURRENT POWER 

OF TEN 



SUBTRACT CURRENT 
POWER OF TEN 
FROM NUMBER 



YES 



LOAD GENERATED 
DIGIT INTO AC 
TYPE IT OUT 



c 



SUBROUTINE 
FINISHED 



EXIT 





MODIFY CODE TQ"-" 



INDEX INSTRUCTION 

TO GET NEXT 

POWER OF TEN 



3 



14.7 PROGRAM LISTING 



/COPr.^IGHF 1971 OIGIf^L EJJIP^SNr COrJPOKA 1 I ON 
A^1AYNARD# NlASSACKUSEirS 

/BINARY TO DECIMAL CONVERSION AND TYPEOUT 

/SINGLE PRECISION 

/CALLING SEQUENCE: /AC CONTAINS BINARY WORD 



/ 



JMS SSPRNT /SUBROUTINE CALL 
/RETURN. AC AND L CLEAR 



0200 


0000 


SSPRNT^ 




0201 


7100 


CLL 




0202 


7510 


SPA 


/IS I 


0203 


7061 


CML 


CMA I AC 


0204 


3253 


DCA 


SSVAL 


0205 


3251 


DCA 


SSBOX 


0206 


1250 


TAD 


SSCNTR 


0207 


3252 


DCA 


SSCNT 


0210 


1244 


TAD 


SSADDR 


0211 


3217 


DCA 


SSXYZ+1 


0212 


1246 


TAD 


SSPLUS 


0213 


7430 


SZL 


/IS T 


0214 


1247 


TAD 


SSMNS 


0215 


4235 


JMS 


SSOUT 


0216 


1253 


SSXYZ> TAD 


SSVAL 


0217 


1254 


TAD 


SSCON 


0220 


7510 


SPA 


/IS T 


0221 


5225 


JMP 


.+4 /YES^ 


0222 


2251 


ISZ 


SSBOX 


0223 


3253 


DCA 


SSVAL 


0224 


5216 


JMP 


SSXYZ 


0225 


7200 


CLA 




0226 


1251 


TAD 


SSBOX 


0227 


4235 


JMS 


SSOUT 


0230 


3251 


DCA 


SSBOX 


0231 


2217 


ISZ 


SSXYZ+1 


0232 


2252 


ISZ 


SSCNT 


0233 


5216 


JMP 


SSXYZ 


0234 


5600 


JMP 


I SSPRNT 






/TYPEOUT ROUTINE 


0235 


0000 


SSOUT:. 




0236 


1245 


TAD 


SSTWO 


0237 


6046 


TLS 




0240 


6041 


TSF 




0241 


5240 


JMP 


.-1 


0242 


7300 


CLA 


CLL 


0243 


5635 


JMP 


I SSOUT 


0244 


1254 


SSADDR> TAD 


SSCON 



IS POSITIVE? 

/NO^ SET LINK^FORM ABSOLUTE VALUE 
/STORE NUMBER AWAY 
/SET DIGIT LOCATION TO ZERO 
/INITIALIZE OUTPUT COUNTER TO "4" 



/INITALIZE 
/FIRST 10 



INSTRUCTION TO GET 



THE 



THE 



/GET CODE TO TYPE A "PLUS" 

NUMBER NEGATIVE? 

/YES> CHANGE CODE TF TYPE A 

/"MINUS" 

/TYPE IT OUT 
/PICK UP NUMBER 

/SUBTRACT CURRENT POWER OF 10 
RESULT NEGATIVE? 
INDEXING IS FINISHED 

/NO^ INDEX THE DIGIT LOCATION 
/STORE REMAINDER IN SSVAL 
/CONTINUE SUBTRACTING 

/PICK UP THE DIGIT NUMBER 
/TYPE IT OUT 

/SET DIGIT COUNTER TO "0" 
/INDEX INSTRUCTION TO GET 
/POWER OF 10 

/have we typed "4" digits 

/no^ continue 
/yeSj return 



/INSTRUCTION 
/POWER OF 10 



TO PICK UP FIRST 
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0245 0260 SSTWO^ 260 /BASIC CODE FOR DIGITAL OUTPUT 

0246 7760 SSPLUS^ -20 /NUMBER USED TO GENERATE "SPACE" 

0247 0015 SSMNS^ 15 /NUMBER USED TO GENERATE "MINUS" 

0250 7774 SSCNTR^ -4 /COUNT OF "4" DIGITS 

0251 0000 SSBOX^ /STORAGE REGISTERS 

0252 0000 SSCNT^ 

0253 0000 SSVAL^ 

/TABLE OF POWERS OF 10 

0254 6030 SSCON^ 6030 /-1000 

0255 7634 7634 /-100 

0256 7766 7766 /-10 

0257 7777 7777 /-I 
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Formerly 
Digital-8-24-U-Sym 



CHAPTER 15 

UNSIGNED DECIMAL INTEGER PRINT 
SUBROUTINE, DOUBLE PRECISION 



15 . 1 ABSTRACT 

This subroutine permits printing a double-precision integer stored 
in the usual convention for double-precision numbers*. The one excep- 
tion is that all 24 bits are interpreted as magnitude bits (i.e., 
the bit "0" of the high-order word is not a sign bit) . The printout 
is in the form of an eight-digit, positive, decimal integer. 

15.2 REQUIREMENTS 

This subroutine requires 73^q (lllg) locations and runs on any 
standard PDP-8 family computer with a 33-ASR Teletype console. 

The source tape is labeled Unsigned Decimal Print, Double 

Precision, 

Digital- 8-24-U-ASCII 

15 . 3 USAGE 

15.3.1 Loading 

The symbolic tape provided can be assembled with PAL III, MACRO-8, 
or PAL-D. It can be assembled with the user program or separately 
with the proper origin setting. Neither origin setting nor "$" 
terminating character exists on the tape; the tape does have a PAUSE 
statement on the end. 

15.3.2 Calling Sequence 

This subroutine is called by an effective JMS UDPRNT. The 
location immediately following the calling JMS contains the address 

*For details on storage of double-precision numbers, see the Math 
Routine s writeup available from the PDP-8 Program Library, section 
oiT Double Precision Signed Multiply Routine. 
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uf the high-order portion of the double-precision integer stored in 
the usual double-precision format. 

15.4 DESCRIPTION 

This is basic double-precision subroutine used to obtain 
decimal output corresponding to double-precision binary words. 
First, the binary equivalent of 10,000,000 is subtracted from the 
original number until under-flow occurs. A count is kept of the 
number of subtractions necessary to accomplish this, thus yielding 
the most significant decimal digit. Then this digit is added to 2608 
and printed on the 33-ASR through the AC. This process is repeated 
using the proper power of ten to give the seven remaining digits. 

The numbers are interpreted and printed as integers. 

See Chapter 13 for a discussion of the techniques used. 

15 . 5 FORMAT 

15.5.1 Core Data 

The double-precision integers are stored in the usual double- 
precision formats with the exception that bit "0" of the high-order 
word is interpreted as part of the number not a sign bit. 

15.5.2 Output Data 

Output is in the form of eight consecutive decimal digits. No 
sign is printed. Spacing, tabulatic^ , carriage return, etc., are 
not provided for in this subroutine. See Chapter 6 which contains 
details on short subroutines for such purposes. 

This subroutine is output limited at 10 cps by the 33-ASR. 
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15.6 FLOW CHART 



C 



ENTRY 



D 



PICK UP ADDRESS OF 

HIGH ORDER WORD FROM 

Calling SEQUENCE 



PICK UP DOUBLE 

PRECISION NUMBER FOR 

USE IN SUBROUTINE 



INITIALIZE COUNTERS, 

POINTERS AND STORAGE 

REGISTERS 



PICK UP CURRENT 
POWER OF TEN FOR 
USE IN SUBTRACTION 




1 



PERFORM DOUBLE 

PRECISION SUBTRACT 

FROM NUMBER 



INDEX TO PICK UP 

NEXT POWER OF TEN. 

PUT DIGIT COUNT 

TO ZERO 



STORE REMAINING 
PORTION OF DOUBLE 
PRECISION NUMBER 



PICK UP 
GENERATED DIGIT 
TYPE IT OUT 




SUdKUUIINt 

FINISHED 



C 



EXIT 



3 
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15.7 PROGRAM LISTING 



0200 
020 1 
0202 

0203 
0204 

020 5 
0206 
020 7 
02 10 
02 1 1 
0212 
02 13 
0214 
02 15 



0000 
7 300 
1600 

3267 
166 7 

3261 
2267 
1667 
3262 
1255 
3260 
12 56 
32 7 
2200 



/COPYlIGHf 1971 DIGITAL £:j JIPM:£,^j f Cj,<PO^^A fl O.nj 

/M^i^^rio* ;^AssACH'jssrfs 

/Ui^sISIGiMED DECIi-WAL PRINT, DOUFJLE PRECISION 
/CALLING SEQUENCE: 



0217 


22 7 


0220 


3263 


022 1 


1670 


0222 


2270 


0223 


3264 


0224 


7100 


022 5 


1264 


0226 


1262 


022 7 


3266 


0230 


7 004 


023 1 


1263 


0232 


1261 


0233 


7420 


023 4 


52 42 


023 5 


22 6 5 



1236 3261 



/ 
/ 

UDPRNT> 



12 16 167 UDARND, 



UDDO 



CLA 
TAD 



JMS UDPRNT /SUBROUTINE CALLED 

HI AODR /ADDRESS OF HIGH ORDER 

/WORD 

RETURN /RETURN WITH AC AND L 

/CLEAR 



CLL 

I UDPRNT 



DCA UDGET 
TAD I UDGET 



DCA 


UDHIGH 


ISZ 


UDGET 


TAD 


I UDGET 


DCA 


UDLOW 


TAD 


UDLOOP 


DCA 


UDCNT 


TAD 


UDADDR 


DCA 


UDPTR 


ISZ 


UDPRNT 



TAD I UDPTR 



ISZ 


UDPTR 


DCA 


UDHSUB 


TAD 


I UDPTR 


I SZ 


UDPTR 


DCA 


UDLSUB 


CLL 




TAD 


UDLSU3 


TAD 


UDLOW 


DCA 


UDTEML 


RAL 




TAD 


UDHSUB 


TAD 


UDHIGH 


SNL 




JMP 


UDOUT 


ISZ 


UDBOX 



DCA UDHIGH 



/PICK UP ADDRESS OF 

/HIGH -ORDER WORD 

/PICK UP BOTH WORDS FOR 
/USE IN SUBROUTINE 



/INITIALIZE DIGIT COUNTER 

/FOR "8" 

/INITIALIZE TO TABLE OF 

/POWERS OF TEN 

/INDEX LINKAGE FOR CORRECT 

/RETURN 

/PICK UP CURRENT 

/POWER OF TEN FOR 
/USE IN SUBTRACTION 



/DOUBLE PRECISION 

/SUBTRACTION 



YET 



/DID IT UNDERFLOW? 

/NO, COUNT I S DONE 

/YES, COUNT NOT DONE 

/INDEX DIGIT 

/DEPOSIT REMAINING PORTIONS 

/OF WORD 
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023 7 


1266 




TAD UDTEML 


0240 


32 62 




DCA UDLOiy\J 


0241 


522 4 




JMP UDDO 


0242 


7 200 


UDOUT^ 


CLA 


024 3 


126 5 




TAD uDBOX 


024 4 


1257 




TAD UDTWO 


0245 


6046 




TLS 


0246 


6041 




TSF 


02 4 7 


52 4 6 




J\AP • - 1 


0250 


7 300 




CLA CLL 


02 51 


3265 




DCA UDBOX 


02 52 


2260 




I SZ UDCtMT 


0253 


5216 




JMP UDARND 


0254 


5600 




JMP I UDPRNT 


0255 


7770 


UDLOOP^ 


-10 


02 56 


0271 


UDADDR, 


UDCON 1 


02 5 7 


0260 


UDTWO. 


260 


0260 


0000 


UDCiMT, 





02 6 1 


0000 


UDHIGH, 





0262 


0000 


UDLOW, 





026 3 


0000 


UDHSUB* 





026 4 


0000 


U0LS1J3. 





0265 


0000 


UDBOX^ 





026 6 


0000 


UOTEML, 





026 7 


0000 


UDGET* 





0270 


0000 


UDPTR> 





0271 


3166 


UDCONl, 


3166 


027 2 


4 600 




4600 


0273 


7413 




7413 


0274 


6 7 00 




6700 


02 7 5 


7747 




7747 


0276 


4540 




4540 


02 7 7 


7775 




7775 


300 


4360 




4360 


030 1 


7777 




7777 


0302 


6030 




6030 


0303 


7777 




7777 


0304 


7634 




7634 


0305 


7 77 7 




7777 


0306 


7766 




7765 


0307 


7777 




7777 


0310 


7777 




7777 



/GO BACK AND 

/AGAIN 



SUBTRACT 



/ADD "261 
/TYPE IT 



)" TO 
OUT 



IT 



/INITIALIZE DIGIT TO "0" 
/HAVE WE TYPED "8" DIGITS 
/NO, DETERMINE NEXT DIGIT 
/YES> SUBROUTINE DONE. 
/RETURN 

/COUNT OF "8" DIGITS 
/INITIAL ADDRESS OF 
/POWERS OF TEN 
/I CODE FOR DIGITS 
/STORAGE LOCATIONS 



/POWERS OF TEN 

y 1/-X rx rx ryi r% r% r% 

/ - iVJ > \D\OVJ> \OVJVJ 
/- 1*000^000 

/- 100*000 

/- 10*000 

/- 1*000 

/- 100 

/- 10 

/- 1 



PAUSE 
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Formerly 
Digital-8-25-U-Syin 



CHAPTER 16 

SIGNED DECIMAL INTEGER PRINT 
SUBROUTINE, DOUBLE PRECISION 



This subroutine permits printing the contents of two consecu- 
tive computer words as one signed double-precision two's complement 
number. If bit of the high order word is a "1", the remaining 
23 bits represent a negative integer in two's complement form; if 
bit equals "0", the remaining bits represent a positive integer. 
If the number is negative, a minus sign is printed; if positive, a 
space, 

16.2 REQUIREMENTS 

This subroutine requires 86, q (126 g) core locations and runs on 
any standard PDP-8 family computer with a 33-ASR Teletype console. 

The source tape supplied is labeled Signed Decimal Print Double 

Precision, 

Digital-8-25-U-ASCII 

16.3 USAGE 

16.3.1 Loading 

The symbolic tape provided is compatible with PAL III, MACRO- 8, 
and PAL-D assemblers. It can be assembled with the user's program 
or separately with the proper origin setting. Neither origin setting 
nor "$" terminating character exists on the symbolic tape provided, 
but a PAUSE pseudo-instruction is the last line on tape. 

16.3.2 Calling Sequence 

The subroutine is called by an effective JMS SDPRNT. The 
location immediately following the calling JMS contains the address 
of the high-order portion of the signed, double-precision integer 
which is stored in the usual double-precision format. For example: 
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JMS SDPRNT 
ADDR 
HLT 
ADDR, |?123 

4567 

16 . 4 DESCRIPTION 

This is a basic subroutine to obtain signed decimal output corres- 
ponding to a double-precision binary word storage in two consecutive 
locations in memory. First, the binary number is sensed to determine 
if it is positive or negative. If positive, a space is printed. If 
negative, a minus sign is printed, and the number complemented to form 
the absolute value. Then the same algorithm is followed as in the 
unsigned double-precision printout described in Chapter 15. 

The numbers are interpreted and printed as integers. 

16.5 FORMAT 

16.5.1 Core Data 

The double precision integers are stored in the usual signed, double- 
precision format (see the Double Precision Signed Multiply section of the 
Math Routines writeup, available from the PDP-8 Program Library. 

16.5.2 Output Data 

Output is in the form of seven consecutive decimal digits preceded 
by either a space or a minus sign. Spacing, tabulation, carriage 
return, etc., are not provided in this subroutine. See Chapter 6 which 
contains details on subroutines for such purposes. If the user wishes 
to print a "+" sign instead of a space, he can change the contents of 
location SDPLUS from "-15" to "-2". 

This subroutine is output limited at 10 cps by the 33-ASR. 
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16.6 FLOW CHART 



c 



ENTRY 



) 



PICK UP ADDRESS OF 
HIGH -ORDER WORD 



PICK UP DOUBLE 

PRECISION NUMBER FOR 

USE IN SUBROUTINE 





\ 


r 






INITIALIZE COUNTERS 
AND POINTERS 






} 








\ 








PICK UP CURRENT 
POWER OF TEN 












r 












\ 








INDEX DIGIT 




PERFORM DOUBLE 

PRECISION SUBTRACT 

FROM NUMBER 




INDEX TO PICKUP 

NEXT POWER OF TEN. 

PUT DIGIT COUNT 

TO ZERO 


i 


i 


YES 


\ 
^^ Die 


IT ^N. 




i 


\ 






1 NO 








STORE REMAINING 

PORTION OF DOUBLE 

PRECISION NUMBER 








V 








PICK UP 

GENERATED DIGIT 

TYPE IT OUT 








1 
y^l DIG! 


rs been\^ 


NO 







TYPED OUT 
? 



YES 



c 



EXIT 



3 



16-3 



16.7 PROGRAM LISTING 



/SIGNED 
/CALL IN 
/ 
/ 

SDPRNT^ 



ii^ r COKrO^^A n OiV 



0200 0000 

0201 7300 

0202 1600 

0203 3307 

0204 1707 

0205 7700 

0206 1276 

0207 1277 

0210 42 64 

0211 1707 

0212 7510 

0213 7060 

0214 3301 

0215 2307 

0216 1707 

0217 7430 

0220 7141 

0221 7430 

0222 2301 

0223 3302 

0224 1273 

0225 3300 

0226 1274 



0227 3310 

0230 2200 

0231 1710 SDARND. 

0232 2310 

0233 3303 

0234 1710 

0235 2310 

0236 3304 

0237 7100 SDDO^ 

0240 1304 

0241 1302 

0242 3306 

0243 7004 

0244 1303 

0245 1301 

0246 7510 

0247 5255 
0250 2305 



GHF 1971 Dibi 

D, i^ASSACHJSErrS 
DECIMAL PRINT^r DOUBLE PRECISION 

G SEQUENCE: JMS SDPRNT /SUBROUTINE CALLED 
HIADDR /ADDRESS OF HIGH ORDER WORD 
RETURN /RETURN WITH AC AND L CLEAR 



CLA 
TAD 

DCA 
TAD 
SMA 
TAD 
TAD 
JMS 
TAD 
SPA 
CMA 
DCA 

ISZ 
TAD 
SZL 
CMA 
SZL 
ISZ 
DCA 
TAD 
DCA 
TAD 

DCA 
ISZ 
TAD 

ISZ 

DCA 
TAD 
ISZ 
DCA 
CLL 
TAD 
TAD 
DCA 
RAL 
TAD 
TAD 
SPA 
JMP 
ISZ 



CLL 

I SDPRNT 

SDGET 
I SDGET 
CLA /IS 
SDPLUS 
SDMNS 
SDTYPE 
I SDGET 
/IS 
CML /NO. 
SDHIGH 



/PICK UP ADDRESS 
/HIGH-ORDER WORD 



OF 



SDGET 
I SDGET 

/IS 
CLL I AC 

/DID AC 
SDHIGH 
SDLOW 
SDLOOP 
SDCNT 
SDADDR 

SDPTR 
SDPRNT 
I SDPTR 

SDPTR 
SDHSUB 
I SDPTR 
SDPTR 
SDLSUB 

/DOUBLE 
SDLSUB 
SDLOW 
SDTEML 

SDHSUB 
SDHIGH 

/DID IT 
SDOUT 

SDBOX 



/PICK UP HIGH-ORER WORD 
IT NEGATIVE? 

/NO^ GENERATE CODE FOR SPACE 
/YES^ GENERATE CODE FOR "MINUS" 
/TYPE IT OUT 

/PICK UP HIGH-ORDER WORD AGAIN 
POSITIVE? 
COMPLEMENT IT. SET LINK 

/STORE POSITIVE WORD FOR USE IN 

/SUBROUTINE 



IT 



/PICK UP LOW-ORDER WORD 
LINK SET? 

/YES^ FORM TWO'S COMPLEMENT 
OVERFLOW FROM "lAC"? 
/YES^ CORRECT HIGH-ORDER WORD 
/STORE POSITIVE LOW-ORDER WORD 
/INITIALIZE DIGIT COUNTER TO "7" 

/INITIALIZE POINTER TO TABLE OF 
/POWERS OF TEN 



/INDEX LINKAGE 
/PICK UP POWER 
/SUBTRACT 



FOR CORRECT RETURN 
OF TEN FOR USE IN 



PRECISION SUBTRACTION 



UNDERFLOW? 

/N0:» COUNT IS DONE 

/YES> COUNT NOT DONE. 



INDEX DIGIT 
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251 3301 



0252 1306 



0253 
0254 
0255 
0256 
0257 
0260 
0261 
0262 
0263 
0264 
0265 
0266 
0267 
0270 
0271 
0272 
0273 
0274 
0275 
0276 
0277 
0300 
0301 
0302 
0303 
0304 
0305 
0306 
0307 
0310 
031 1 
0312 
0313 
0314 
0315 
0316 
0317 
0320 
0321 
0322 
0323 
0324 
0325 
0326 



3302 
5237 
7200 
1305 
4264 
3305 
2300 
5231 
5600 
0000 
1275 
6046 
6041 
5267 
7300 
5664 
7771 
031 1 
0260 
7763 
7775 



0000 



7413 
6700 
7747 
4540 
7775 
4360 
7777 
6030 
7777 
7634 
7777 
7766 
7777 
7777 



.qDnuT., 



SDTYPE:. 



SDLOOP^ 

SDADDR^ 

SDTWO^r 

SDPLUS:» 

SDMNS:» 

SDCNT^ 

SDHIGH;, 

SDLOW^ 

SDHSUB^ 

SDLSUB^ 

SDBOX^ 

SDTEML,' 

SDGET^ 

SDPTR:» 

SDCONL^ 



DCA SDHIGH 

TAD SDTEML 

DCA SDLOW 

JMP SDDO 

CLA 

TAD SDBOX 

JMS SDTYPE 

DCA SDBOX 

ISZ SDCNT 

JMP SDARND 

JMP I SDPRNT 

/TYPEOU 

TAD SDTWO 

TLS 

TSF 

JMP . - 1 

CLA CLL 

JMP I SDTYPE 

-7 /COUNT 

SDCONL /INITAL 



/DEPOSIT 
/PORTION 
/RESTORE 
/PORTION 



REMAINING HIGH-ORDER 



REMAINING LOW-ORDER 



/GO BACK AND SUBTRACT AGAIN 

/PICK UP RESULTING DIGIT 
/TYPE IT OUT 

/INITIALIZE DIGIT TO "0" 
/HAVE WE TYPED "7" DIGITS 
/NO^ DETERMINE NEXT DIGIT 
/YES:» SUBROUTINE DONE. RETURN 
T ROUTINE 



2 60 
-15 
-3 



7413 
6700 
7747 
4540 
7775 
4360 
7777 
6030 
7777 
7634 
7777 
7766 
7777 
7777 



OF SEVEN DIGITS 

ADDRESS OF POWERS OF TEN 
CODE FOR DIGITS 
". TO TYPE " + 'S REPLACE BY "-2' 



/BASIC 

/"SPACE 

/"MINUS" 

/STORAGE LOCATIONS 



/TABLE OF POWERS OF TEN 

/-1^000^000 

/-100^000 

/-10^000 

/-U000 

/-100 

/- 10 

/-I 
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Formerly 

Digital- 8- 14-U-Sym 



CHAPTER 17 



BINARY TO BCD CONVERSION 
CBinary to Binary Coded Decimal Conversion) 



17.1 ABSTRACT 

This subroutine provides the basic means of converting binary 
data to binary-coded-decimal (BCD) data for printing, magnetic tape 
recording, etc. 

17.2 REQUIREMENTS 

This subroutine uses 33, q (41g) storage locations and runs on 

any standard PDP-8 family computer with a 33-ASR Teletype console. 

The source tape provided is labeled Binary to Binary Coded Decimal 

Conversion, 

Digital-8-14-U-ASCII 

17.3 CALLING SEQUENCE 

The subroutine is called by the JMS instruction. When called, the 
binary number to be converted must be in the accumulator (AC) . 

The subroutine returns to the instruction immediately following 
the calling JMS with the BCD result in the AC. 

17.4 DESCRIPTION 

Reference to the Flow Chart (Figure 17.1) illustrates this dis- 
cussion. 

On input the binary number is stored, a pointer is initialized, 
the link is cleared, and a counter to control the number of passes 
through the computation loop proper is properly set. 

The loop is now entered, and is repeated eight times. 

The binary equivalents of 800, 400, 200, 100, 80, 40, 20, and 10 
are subtracted successively from the original binary number. 
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After each subtraction, a test on the link is made. If the result 
of the test shows the link to be 0, the next lower equivalent is 
subtracted from the same quantity after the contents of the links (0) 
are shifted into the developing BCD number (Location NUMBER) . 

If the subtraction leaves a negative link, the contents of the 
accumulator replace the binary representation currently being processed 
after the contents of the link (1) have been shifted into the growing 
BCD number. 

After eight passes through the basic loop, the developed BCD 
representation is shifted left four bits and the "residual" least 
significant digit is added before exit. 

17.5 EXAMPLE 

As an example consider the conversion of the binary equivalent 
of 512 decimal: 



Link 



-800 



Addition 




001 
110 


000 
Oil 


000 
100 


000 
000 


111 

001 
111 


Oil 

000 
001 


100 

000 
110 


000 

000 
000 


000 

000 
111 


001 

001 
110 


110 

110 
001 


000 

000 
000 


111 

000 
111 


111 

001 
110 


111 

110 

oil 


000 

000 
100 



-400 



■200 



-100 



000 000 001 100 



Notice that the remainder is the binary representation of 12 
decimal. Writing the link bits in the order they are developed gives 
0101 the BCD character denoting 5. 

17.6 SCALING 

The original binary number must be no larger than 999 (decimal) 
which is equivalent to 1747 (octal) . The binary point is assumed to 
be at the extreme right end of the word (to the right of bit position 
11) and the decimal point is also so positioned. 
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In other words, this subroutine converts binary integers to BCD 
integers. 

Note that the subroutine is designed for positive input only I 



DATA-*. INPUT 



(CONTROL)-* POINTER 



(COUNT)-* AC 



POINTER 



(AC)-*NUMBER 



TAD INPUT 



TAD TABLE 



(L) = 




(L)=1 



(AC)-* INPUT 




RETURN 



Figure 17.1 FLOW CHART 
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1 / . / FKUbKAM iilb'illNHa 

A listing of the program with BCD located in 0200 appears as follows 



0200 
020 1 
0202 
0203 
0204 

020 5 
0206 
0207 
02 10 

021 1 

0212 
0213 
02 14 
0215 
0216 
0217 
0220 
0221 
0222 
223 

022 4 
22 5 
0226 
0227 
0230 
0231 
0232 
0233 
0234 
0235 
0236 
0237 
0240 



0203 
322 6 
1225 
3210 
7 100 
1230 
322 7 
1226 
1231 

7430 
322 6 
7200 
122 7 
7004 
2210 
7420 
5206 
7106 
7006 
1226 
5600 
1231 
0000 
0000 
0020 
6340 
7160 
7470 
7634 
7660 
7730 
7754 
7766 



/BINARY TO BCD CONVERSION 3/6/6 5-HB-DEC 

/ENTER WITH BINARY NUMBER C<999(10)) 

/IN ACCUMULATOR.; EXIT WITH THREE CHARACTER 

/BCD NUMBER IN ACCUMULATOR 

/AC 0-3J AC 4-7; AC 8-11 WILL CONTAIN 

/THE BCD CHARACTER ON EXIT 

/WEIGHTING: AC 0-3 100 



/ 
/ 

/STORAGE 
/TIME=216 
/IF INPUT 
BCD, 



1 



1 



AC 4-7 

AC 8-11 
33(10) REGISTERS 
0-235.2 MICRO-SECONDS PDP-8 
>999 (10) RESULT IS UNSPECIFIED 



POINTR, 



CONTRL 
INPUT* 
NUMBER 
COUNT > 
TABLE, 



DCA 
TAD 
DCA 
CLL 
TAD 
DCA 
TAD 
TAD 

SZL 
DCA 
CLA 
TAD 
RAL 
I SZ 
SNL 
JMP 
CLL 
RTL 
TAD 
JMP 
TAD 




INPUT 

CONTRL 

POINTR 

COUNT 

NUMBER 

INPUT 

TABLE 



INPUT 

NUMBER 

POINTR 

POINTR-2 
RTL 

INPUT 
I BCD 
TABLE 



0020 
- 1440 
-0620 
-0310 
-0144 
-0120 
-0050 
-0024 
-0012 
/EXAMPLE: INPUT 0726 (8) 



/STORE BINARY 
/SET UP TABLE 
/POINTERS 

/SET BIT 7= l; 8RAL 'S 
/WILL PUT IT IN LINK 

/OR TABLE+1, TABLE+2, ETC 

/IF C(L)=1, INPUT>-TABLE 
/IF SO: INPUT=INPUT+TABLE 



/PUT THIS BIT IN ANSWER 
/UPDATE TABLE POINTER 
/IF LINK=1, ALL DONE 



BCD 



/CONVERTED 2 
/CHARACTERS 
/SHIFT LEFT AND 
/THE THIRD 



Ann 



/ 



OUTPUT 



0100/01 1 1/0000 



/- 


■800( 10) 




/- 


-400 






/- 


■200 






/- 


- 100 






/- 


■80 






/- 


-40 






/- 


-20 






/- 


■ 10 









- 


Al(d 


( 10) 
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Formerly 

Digital- 8-15-U-Syin 



CHAPTER 18 



BINARY TO BCD CONVERSION (4-DIGIT) 
(Binary to Binary Coded Decimal Conversion, 4-Digit) 



18.1 ABSTRACT 

This subroutine extends the method used in Chapter 17 so that 
binary integers from to 4095 contained in a single computer word 
may be converted to four binary-coded-decimal characters packed in 
two computer words . 

18.2 REQUIREMENTS 

This subroutine uses 53^^ ^^^s^ storage locations and runs on any 
standard PDP-8 family computer with 33-ASR Teletype Console. The 
source tape provided is labeled Binary to Binary-Coded-Decimal Conver- 
sion (Four Digit) , 

Digital- 8-15-U-ASCII 

18.3 CALLING SEQUENCE 

This subroutine is called by the JMS instruction with the binary 
number to be converted in the accumulator (AC) . 

This subroutine returns to the location immediately following 
that containing the calling JMS. The format of the result is discussed 
below. 

18.4 DESCRIPTION 

This program is essentially Digital-8-14-U-ASCII (described in 
Chapter 17) extended to allow for integers in the range of 1000 to 
4095. 



18.5 CORE DATA 

Results appear in core as: 

Word ONE 
012. .5678. .11 




~BA 



10 




RA 



12 



Word TWO 
, .5678 



11 



10 





10 


BA 


BA 
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The decimal coding for 2048 is illustrated. 

18.6 IBM COMPATIBILITY 

Note that bits 0, 1 and 6, 7 are set so that they can be regarded 
as zone B and zone A bits required for IBM BCD mode compatible 6-bit 
numerical characters. 

In this mode of recording, the character 1010 is used for zero 
instead of code 000 which this subroutine produces. Therefore, to 
use this routine in conjunction with IBM-compatible mag tape recording, 
it is necessary to write a short auxiliary routine to make this sub- 
stitution. 

It may also be necessary to generate the even parity required by 
such recording if this is not accomplished in the tape control hardware 

18.7 PROGRAM LISTING 



/CO^YrilGHT 1971 DIGITAL E.2 Jl >^>^ZS^T COr^POxA FI M 
/MAy,NiA:iJD> >1ASSACHJSErrs 

/BINARY TO BCD CONVERSION 3/7/65-HB-DEC 
/ENTER WITH BINARY NUMBER IN ACCUMULATOR 
/EXIT WITH A SIX-BIT BCD CHARACTERS 
/PACKED TWO TO A WORD IN REGISTERS 
/ONE AND TWO OR IN A BUFFER. 
/USED FOR WRITING MAG-TAPE IN BCD FORMAT 
/IN ADDITION TO BCD PARITY 
/OUTPUT FORMAT: 

A,B BITS 
1000 DECADE 
A^B BITS 

100 DECADE 
A^B BITS 

10 DECADE 
A^B BITS 

1 DECADE 
lEGl STEPS 
324.8-350.4 MI CRO- SECONDS PDP-8 



/ 


ONE 0-1 


/ 


ONE 2-5 


/ 


ONE 6-7 


/ 


ONE 8- 1 1 


/ 


TWO 0- 1 


/ 


TWO 2-5 


/ 


TWO 6-7 


/ 


TWO 8- 1 1 


/STORAGE 


-53 C 10 


/TIME 


324.8-350 
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0200 


0000 


BCD. 







0201 


3223 




DCA 


INPUT 


0202 


122 5 




TAD 


CONTRL 


20 3 


3240 




DCA 


POINTR 


20 4 


1226 




TAD 


COUNT 1 


020 5 


4234 




JMS 


STEP 


20 6 


7106 




CLL 


RTL 


0207 


4234 




jy\s 


STEP 


02 10 


1232 




TAD 


BITSl 


02 1 1 


3230 




DCA 


ONE 


0212 


1227 




TAD 


C0UNT2 


0213 


4234 




JMS 


STEP 


021 4 


7106 




CLL 


RTL 


02 15 


7006 




RTL 




0216 


7006 




RTL 




0217 


1223 




TAD 


INPUT 


0220 


1233 




TAD 


BITS2 


0221 


3231 




DCA 


TWO 


0222 


5600 




JMP 


I BCD 


0223 


0000 


INPUT. 







0224 


0000 


NUMBER, 







0225 


1252 


CONTRL, 


TAD 


TABLE 


0226 


1010 


COUNT 1. 


1010 


0227 


0400 


C0UNT2. 


0400 


0230 


0000 


ONE. 







0231 


0000 


TWO. 







0232 


0000 


BITSl. 







0233 


0000 


BITS2. 







023 4 


0000 


STEP. 







0235 


7100 




CLL 




0236 


3224 




DCA 


NUMBER 


023 7 


1223 




TAD 


INPUT 


02 40 


1252 


POINTR. 


TAD 


TABLE 


0241 


7430 




SZL 




0242 


3223 




DCA 


INPUT 


024 3 


7 200 




CLA 




0244 


1224 




TAD 


NUMBER 


02 4 5 


7004 




RAL 




2246 


2240 




ISZ 


POINTR 


02 4 7 


7430 




SZL 




02 50 


5634 




JMP 


I STEP 



/STORE BINARY 
/SET UP TABLE 
/POINTER 
/SET COUNT 
/CONVERT 

/CONVERT NEXT 
/A.B BIT PATTERNS 
/OR DCA I AUTO (10-17) 
/SET-UP COUNT 



/LEAST SIGNIFICANT BITS 

/A.B BIT PATTERMS 

/OR DCA I AUTO ( 10- 17) 

/EXIT 



/OR ANY BIT PATTERN 
/OR ANY BIT PATTERN 
/ACTUAL CONVERSION 

/SUBROUTINE 



/OR TABLE+1. TABLE+2. ETC 

/ IF CCL)=U INPUT>-TABLE 
/IF SO: INPUT=INPUT+TABLE 

/ROTATES WILL BRING 
/COUNT BIT INTO LINK 



/ctTTP nnMfT 



251 5236 



JMP POINTR- 2 
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0252 


0140 


TABLE. 


-7640 




/- 


0253 


4060 




-3720 






0254 


6030 




- 1750 






0255 


6340 




- 1440 






0256 


7160 




-0620 






0257 


7470 




-0310 






0260 


7634 




-0144 






0261 


7660 




-0120 






0262 


7730 




-0050 






0263 


7754 




-0024 






0264 


7766 




-0012 










/EXAMPLE: 


INPUT 


7777 


(8) 






/ 


OUTPUT: 


ONE 


00 0100/ 






/ 




TWO 


00 1001/ 



/-4000 ( 10) 



=4095 ( 10) 



00 0101 
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HOW TO OBTAIN SOFTWARE INFORMATION 



SOFTWARE NEWSLETTERS, MAILING LIST 

The Software Communications Group, located at corporate headquarters in 
Maynard, publishes newsletters and Software Performance Summaries (SPS) 
for the various Di'^ital '•Products ^ Newsletters are f^ublished m.onthlv. 
and contain announcements of new and revised software, programming 
notes, software problems and solutions, and documentation corrections. 
Software Performance Summaries are a collection of existing problems 
and solutions for a given software system, and are published periodi- 
cally. For infoiTmation on the distribution of these documents and how 
to get on the software newsletter mailing list, write to: 

Software Communications 

P. 0. Box F 

Maynard, Massachusetts 01754 

SOFTWARE PROBLEMS 

Questions or problems relating to Digital ' s software should be reported 
to a Software Support Specialist. A specialist is located in each 
Digital Sales Office in the United States. In Europe, software problem 
reporting centers are in the following cities. 

Reading, England Milan, Italy 

Paris, France Solna, Sweden 

The Hague, Holland Geneva, Switzerland 

Tel Aviv, Israel Munich, West Germany 

Software Problem Report (SPR) forms ar6 available from the specialists 
or from the Software Distribution Centers cited below. 



PROGRAMS AND MANUALS 

Software and manuals should be ordered by title and order number. In 
the United States, send orders to the nearest distribution center. 

Digital Equipment Corporation Digital Equipment Corporation 

Software Distribution Center Software Distribution Center 

146 Main Street 1400 Terra Bella 

Maynard, Massachusetts 01754 Mountain View, California 94043 

Outside of the United States, orders should be directed to the nearest 
Digital Field Sales Office or representative. 

USERS SOCIETY 

DECUS, Digital Equipment Computer Users Society, maintains a user ex- 
change center for user-written programs and technical application in- 
formation. A catalog of existing programs is available. The society 
publishes a periodical, DECUSCOPE, and holds technical seminars in the 
United States, Canada, Europe, and Australia. For information on the 
society and membership application forms, write to: 

DECUS DECUS 

Digital Equipment Corporation Digital Equipment, S.A. 
146 Main Street 81 Route de I'Aire 

Maynard, Massachusetts 01754 1211 Geneva 26 

Switzerland 



READER'S COMMENTS 



NOTE: This form is for document comments only. Problems 
with software should be reported on a Software 
Problem Report (SPR) form (see the HOW TO OBTAIN 
SOFTWARE INFORMATION page) . 



Did you find errors in this manual? If so, specify by page. 



Did you find this manual understandable, usable, and well-organized? 
Please make suggestions for improvement. 



Is there sufficient documentation on associated system programs 
required for use of the software described in this manual? If not, 
what material is missing and where should it be placed? 



Please indicate the type of user/reader that you most nearly represent. 

I I Assembly language programmer 

I I Higher-level language programmer 

I I Occasional programmer (experienced) 

[ I User with little programming experience 

I I Student programmer 

i i Non- programmer interested in computer concepts and capabilities 

Name Date ^__ 

Organization -. 

Street 

City State Zip Code 

or 
Country 

If you do not require a written reply, please check here. Q 



Fold Here- 



-- Do Not Tear - Fold Here and Staple 
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NO POSTAGE STAMP NECESSARY IF MAILED IN THE UNITED STATES 



FIRST CLASS 

PERMIT NO. 33 

MAYNARD, MASS. 



Postage will be paid by: 



SOSDGID 



Software Coiranunications 

P.O. Box F 

•Maynard, Massachusetts 01754 



